/[webpac2]/trunk/t/conf/normalize/sub.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/conf/normalize/sub.pl

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

revision 1264 by dpavlin, Tue Nov 20 22:07:45 2007 UTC revision 1265 by dpavlin, Sun Aug 9 20:10:21 2009 UTC
# Line 1  Line 1 
1    # check all repairs in WebPAC::Parser
2    
3  sub foo {  sub foo {
4          push @test, 'foo';          push @test, 'foo';
5  }  }
# Line 9  sub bar($) { Line 11  sub bar($) {
11  foo();  foo();
12  bar(foo());  bar(foo());
13  bar(42);  bar(42);
14    
15    sub test($) {
16            push @test, $_[0];
17    }
18    
19    foreach my $a ( 1,2,3 ) {
20            test($a);      
21    }
Legend:
Removed from v.1264  
changed lines
  Added in v.1265
  ViewVC Help
Powered by ViewVC 1.1.26