Changeset 22569

Timestamp:

10/10/08 18:53:21 (6 weeks ago)

Author:

lwall

Message:

[viv] change MAIN to take @ARGV args as arguments

Files:

• src/perl6/viv (modified) (3 diffs)

src/perl6/viv

@@ -17 +17 @@
 sub MAIN {
     my $output = 'ast';
-    while (@ARGV) {
-        last unless $ARGV[0] =~ /^--/;
-        my $switch = shift @ARGV;
+    while (@_) {
+        last unless $_[0] =~ /^--/;
+        my $switch = shift @_;
         if ($switch eq '--ast') {
             $output = 'ast';
@@ -36 +36 @@
         }
     }
-    my $r = STD->parsefile($ARGV[0])->item;
+    my $r = STD->parsefile($_[0])->item;
     if ($output eq 'ast') {
         print Dump($r);
@@ -233 +233 @@
 
 if ($0 eq __FILE__) {
-    ::MAIN();
+    ::MAIN(@ARGV);
 }