chomp problem

[Jens Rieks]

Hi,

the attached patch shows a problem with chomp.
Output:
[EMAIL PROTECTED]:~/projekte/pugs$ ./pugs -Iblib6/lib 
t/builtins/strings/chomp.t
1..12
ok 1 - our variable is chomped correctly
ok 2 - our variable is chomped again with no effect
ok 3 - our variable is chomped correctly
ok 4 - our variable is chomped again correctly
ok 5 - our variable is chomped again with no effect
ok 6 - our variable is chomped correctly
ok 7 - our variable is chomped again with no effect
ok 8 - our variable is chomped with no effect
ok 9 - chomp returns the chomped value
ok 10 - and our variable is chomped correctly
# Looks like you planned 12 tests, but ran 10
*** Can't modify constant item: VStr "blub\n"
    at t/builtins/strings/chomp.t line 57, column 27-38

Index: t/builtins/strings/chomp.t
===================================================================
--- t/builtins/strings/chomp.t	(revision 4093)
+++ t/builtins/strings/chomp.t	(working copy)
@@ -3,7 +3,7 @@
 use v6;
 use Test;
 
-plan 10;
+plan 12;
 
 =pod
 
@@ -52,3 +52,10 @@
     is($foo, 'foo', 'and our variable is chomped correctly');    
 }
 
+{
+    for "blub\n\n" -> $foo {
+        my $chomped_foo = chomp($foo);
+	is($chomped_foo, "\n", 'chomp returns the chomped value in for loop');
+        is($foo, "blub\n", 'and our variable is chomped correctly in for loop');    
+    }
+}