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

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

From:
pmichaud
Date:
December 15, 2008 14:00
Subject:
[svn:parrot] r33936 - trunk/compilers/pct/src/PCT
Message ID:
20081215220031.44A30CBA12@x12.develooper.com
Author: pmichaud
Date: Mon Dec 15 14:00:29 2008
New Revision: 33936

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

Log:
[pct]:  Fix -e option to execute '' or 0 argument if given (RT #57018).


Modified: trunk/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- trunk/compilers/pct/src/PCT/HLLCompiler.pir	(original)
+++ trunk/compilers/pct/src/PCT/HLLCompiler.pir	Mon Dec 15 14:00:29 2008
@@ -745,8 +745,10 @@
     $I0 = adverbs['version']
     if $I0 goto version
 
+    
     $S0 = adverbs['e']
-    if $S0 goto eval_line
+    $I0 = exists adverbs['e']
+    if $I0 goto eval_line
 
     .local pmc result
     result = box ''



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