develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35418 - trunk/compilers/pct/src/PCT

From:
pmichaud
Date:
January 11, 2009 07:20
Subject:
[svn:parrot] r35418 - trunk/compilers/pct/src/PCT
Message ID:
20090111152005.985D7CB9F9@x12.develooper.com
Author: pmichaud
Date: Sun Jan 11 07:20:04 2009
New Revision: 35418

Modified:
   trunk/compilers/pct/src/PCT/HLLCompiler.pir

Log:
[pct]:  Add command line arguments to -e (RT #62030).


Modified: trunk/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- trunk/compilers/pct/src/PCT/HLLCompiler.pir	(original)
+++ trunk/compilers/pct/src/PCT/HLLCompiler.pir	Sun Jan 11 07:20:04 2009
@@ -784,7 +784,7 @@
     self.'interactive'(args :flat, adverbs :flat :named)
     goto save_output
   eval_line:
-    result = self.'eval'($S0, adverbs :flat :named)
+    result = self.'eval'($S0, '-e', args :flat, adverbs :flat :named)
 
   save_output:
     if null result goto end



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