develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34070 - branches/main/compilers/pct/src/PCT

From:
pmichaud
Date:
December 18, 2008 10:16
Subject:
[svn:parrot] r34070 - branches/main/compilers/pct/src/PCT
Message ID:
20081218181556.61C17CBA12@x12.develooper.com
Author: pmichaud
Date: Thu Dec 18 10:15:55 2008
New Revision: 34070

Modified:
   branches/main/compilers/pct/src/PCT/HLLCompiler.pir

Log:
[pct]:  Don't remove the $0 argument from args when passing for execution.


Modified: branches/main/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- branches/main/compilers/pct/src/PCT/HLLCompiler.pir	(original)
+++ branches/main/compilers/pct/src/PCT/HLLCompiler.pir	Thu Dec 18 10:15:55 2008
@@ -755,7 +755,7 @@
     unless args goto interactive
     $I0 = adverbs['combine']
     if $I0 goto combine
-    $S0 = shift args
+    $S0 = args[0]
     result = self.'evalfiles'($S0, args :flat, adverbs :flat :named)
     goto save_output
   combine:



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About