[svn:parrot] r46370 - trunk/src/ops

[darbelo at svn.parrot.org]

Author: darbelo
Date: Thu May  6 20:53:51 2010
New Revision: 46370
URL: https://trac.parrot.org/parrot/changeset/46370

Log:
Make the peek opcode return STRINGNULL instead of freshly allocated 0-length strings.

Modified:
   trunk/src/ops/io.ops

Modified: trunk/src/ops/io.ops
==============================================================================
--- trunk/src/ops/io.ops	Thu May  6 17:18:01 2010	(r46369)
+++ trunk/src/ops/io.ops	Thu May  6 20:53:51 2010	(r46370)
@@ -390,7 +390,7 @@
 
     *s = NULL;
     if (Parrot_io_peek(interp, _PIO_STDIN(interp), s) < 0) {
-        $1 = Parrot_str_new_noinit(interp, enum_stringrep_one, 0);
+        $1 = STRINGNULL;
     }
 }
 
@@ -399,7 +399,7 @@
 
     *s = NULL;
     if (Parrot_io_peek(interp, $2, s) < 0) {
-        $1 = Parrot_str_new_noinit(interp, enum_stringrep_one, 0);
+        $1 = STRINGNULL;
     }
 }