fix for C<$/ = 42> setting paragraph mode (applied with small

[p5sagit/p5-mst-13.2.git] / t / base / rs.t

diff --git a/t/base/rs.t b/t/base/rs.t
index 52a9572..07cc8fd 100755 (executable)
--- a/t/base/rs.t
+++ b/t/base/rs.t
@@ -24,7 +24,7 @@ $bar = <TESTFILE>;
 if ($bar eq "12\n") {print "ok 2\n";} else {print "not ok 2\n";}
 
 # Try a non line terminator
-$/ = "3";
+$/ = 3;
 $bar = <TESTFILE>;
 if ($bar eq "123") {print "ok 3\n";} else {print "not ok 3\n";}