develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33707 - trunk/languages/perl6/src/builtins

From:
jonathan
Date:
December 9, 2008 05:51
Subject:
[svn:parrot] r33707 - trunk/languages/perl6/src/builtins
Message ID:
20081209135118.1B2AACB9AF@x12.develooper.com
Author: jonathan
Date: Tue Dec  9 05:51:17 2008
New Revision: 33707

Modified:
   trunk/languages/perl6/src/builtins/any-str.pir

Log:
[rakudo] Make chomp Win32-aware.

Modified: trunk/languages/perl6/src/builtins/any-str.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/any-str.pir	(original)
+++ trunk/languages/perl6/src/builtins/any-str.pir	Tue Dec  9 05:51:17 2008
@@ -119,6 +119,9 @@
     lastchar = substr tmps,-1
     if lastchar != "\n" goto done
     chopn tmps, 1
+    lastchar = substr tmps,-1
+    if lastchar != "\r" goto done
+    chopn tmps, 1
   done:
        retv = new 'Str'
        retv = tmps



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About