[system] / trunk / pg / lib / Parser.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Parser.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 3373 Revision 3374
642sub perlFunction { 642sub perlFunction {
643 my $self = shift; my $name = shift; my $vars = shift; 643 my $self = shift; my $name = shift; my $vars = shift;
644 $vars = [sort(keys %{$self->{variables}})] unless $vars; 644 $vars = [sort(keys %{$self->{variables}})] unless $vars;
645 my $n = scalar(@{$vars}); my $vnames = ''; 645 my $n = scalar(@{$vars}); my $vnames = '';
646 if ($n > 0) { 646 if ($n > 0) {
647 my @v = (); foreach my $x (@{$vars}) {&push(@v,'$'.$x)} 647 my @v = (); foreach my $x (@{$vars}) {CORE::push(@v,'$'.$x)}
648 $vnames = "my (".join(',',@v).") = \@_;"; 648 $vnames = "my (".join(',',@v).") = \@_;";
649 } 649 }
650 my $fn = eval 650 my $fn = eval
651 "package main; 651 "package main;
652 sub $name { 652 sub $name {

Legend:
Removed from v.3373  
changed lines
  Added in v.3374

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9