[svn:parrot] r45781 - branches/immutable_strings_part2/runtime/parrot/library/Getopt

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Apr 18 11:19:31 2010
New Revision: 45781
URL: https://trac.parrot.org/parrot/changeset/45781

Log:
Update Getopt::Obj

Modified:
   branches/immutable_strings_part2/runtime/parrot/library/Getopt/Obj.pir

Modified: branches/immutable_strings_part2/runtime/parrot/library/Getopt/Obj.pir
==============================================================================
--- branches/immutable_strings_part2/runtime/parrot/library/Getopt/Obj.pir	Sun Apr 18 11:19:19 2010	(r45780)
+++ branches/immutable_strings_part2/runtime/parrot/library/Getopt/Obj.pir	Sun Apr 18 11:19:31 2010	(r45781)
@@ -412,9 +412,8 @@
     if type == 'i' goto integer
     if type == 'f' goto flt
     $P0 = new 'Exception'
-    $S0 = "Unknown specs option '"
-    $S0 .= type
-    $S0 .= "'"
+    $S0 = "Unknown specs option '" . type
+    $S0 = $S0 . "'"
     $P0 = $S0
     throw $P0
 
@@ -506,8 +505,8 @@
     if $I0 goto finish
     $P0 = new 'Exception'
     $S0 = "Option '"
-    $S0 .= key
-    $S0 .= "' not in specs"
+    $S0 = $S0 . key
+    $S0 = $S0 . "' not in specs"
     $P0 = $S0
     throw $P0
 finish:
@@ -558,8 +557,8 @@
 
     $P0 = new 'Exception'
     $S0 = "Missing a required argument for option '"
-    $S0 .= arg
-    $S0 .= "'"
+    $S0 = $S0 . arg
+    $S0 = $S0 . "'"
     $P0 = $S0
     throw $P0
 .end