[svn:parrot] r35609 - branches/strings/pseudocode

[email protected]
Newsgroups perl.cvs.parrot
Message-ID <[email protected]>
Author: simon
Date: Thu Jan 15 16:18:02 2009
New Revision: 35609

Modified:
   branches/strings/pseudocode/ParrotString.pm

Log:
Ironically, I need to get the length of a string.


Modified: branches/strings/pseudocode/ParrotString.pm
==============================================================================
--- branches/strings/pseudocode/ParrotString.pm	(original)
+++ branches/strings/pseudocode/ParrotString.pm	Thu Jan 15 16:18:02 2009
@@ -43,7 +43,7 @@
     $news.charset  = $charset;
     $news.encoding = $encoding;
     $news.buffer   = map { ord $_ }, split("", $s);
-    $news.bufused = $news.strlen = $len || length($s);
+    $news.bufused = $news.strlen = $len || $s.chars;
     return $news;
 }
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.