[svn:parrot] r44785 - branches/pcc_hackathon_6Mar10/tools/dev

[chromatic at svn.parrot.org]

Author: chromatic
Date: Tue Mar  9 02:02:55 2010
New Revision: 44785
URL: https://trac.parrot.org/parrot/changeset/44785

Log:
[tools] Fixed up pbc_to_exe to meet return positional strictness checks.

Modified:
   branches/pcc_hackathon_6Mar10/tools/dev/pbc_to_exe.pir

Modified: branches/pcc_hackathon_6Mar10/tools/dev/pbc_to_exe.pir
==============================================================================
--- branches/pcc_hackathon_6Mar10/tools/dev/pbc_to_exe.pir	Tue Mar  9 02:02:46 2010	(r44784)
+++ branches/pcc_hackathon_6Mar10/tools/dev/pbc_to_exe.pir	Tue Mar  9 02:02:55 2010	(r44785)
@@ -1,5 +1,5 @@
 #! parrot
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
 # $Id$
 
 =head1 NAME
@@ -32,7 +32,7 @@
     .local string objfile
     .local string exefile
 
-    (infile, cfile, objfile, exefile) = 'handle_args'(argv)
+    (infile :optional, cfile :optional, objfile :optional, exefile :optional) = 'handle_args'(argv)
     unless infile > '' goto err_infile
 
     .local string code_type
@@ -155,8 +155,8 @@
   check_install:
     .local string infile, install
 
-    $P0    = shift args
-    infile = shift args
+    $P0     = shift args
+    infile  = shift args
     install = shift args
     if install == '--install' goto proper_install
     .return ()