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
