[svn:parrot] r46072 - trunk/examples/pir

mikehh at svn.parrot.org mikehh at svn.parrot.org
Tue Apr 27 18:43:36 UTC 2010


Author: mikehh
Date: Tue Apr 27 18:43:36 2010
New Revision: 46072
URL: https://trac.parrot.org/parrot/changeset/46072

Log:
replace in-place string op

Modified:
   trunk/examples/pir/substr.pir

Modified: trunk/examples/pir/substr.pir
==============================================================================
--- trunk/examples/pir/substr.pir	Tue Apr 27 18:36:46 2010	(r46071)
+++ trunk/examples/pir/substr.pir	Tue Apr 27 18:43:36 2010	(r46072)
@@ -1,4 +1,4 @@
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
 # $Id$
 
 =head1 NAME
@@ -31,7 +31,7 @@
 WANE:   $I1 = length $S1
         print  $S1
         print  "\n"
-        chopn  $S1, 1
+        chopn  $S1, $S1, 1
         unless $I1 == $I3 goto WANE
 DONE:
 .end


More information about the parrot-commits mailing list