[svn:parrot] r46365 - trunk/runtime/parrot/library/Getopt

[bacek at svn.parrot.org]

Author: bacek
Date: Thu May  6 15:01:15 2010
New Revision: 46365
URL: https://trac.parrot.org/parrot/changeset/46365

Log:
Avoid usage of concat_s_s in Getopt::Obj

Modified:
   trunk/runtime/parrot/library/Getopt/Obj.pir

Modified: trunk/runtime/parrot/library/Getopt/Obj.pir
==============================================================================
--- trunk/runtime/parrot/library/Getopt/Obj.pir	Thu May  6 15:01:00 2010	(r46364)
+++ trunk/runtime/parrot/library/Getopt/Obj.pir	Thu May  6 15:01:15 2010	(r46365)
@@ -413,8 +413,8 @@
     if type == 'f' goto flt
     $P0 = new 'Exception'
     $S0 = "Unknown specs option '"
-    $S0 .= type
-    $S0 .= "'"
+    $S0 = $S0 . type
+    $S0 = $S0 . "'"
     $P0 = $S0
     throw $P0
 
@@ -506,8 +506,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 +558,8 @@
 
     $P0 = new 'Exception'
     $S0 = "Missing a required argument for option '"
-    $S0 .= arg
-    $S0 .= "'"
+    $S0 = $S0 . arg
+    $S0 = $S0 . "'"
     $P0 = $S0
     throw $P0
 .end