diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-23 07:33:52 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-23 07:33:52 +0000 |
| commit | 5735c168c62d0fa5cf526f0c7e7c97b069acef8f (patch) | |
| tree | 807b7f132eed16da55e044932192ceec77e4ab23 /ext/PerlIO/t/scalar.t | |
| parent | 102d3b8a62934b6c124acd38fad140f94f743df1 (diff) | |
| download | perl-5735c168c62d0fa5cf526f0c7e7c97b069acef8f.tar.gz | |
Fix [perl #35929] : PerlIO::scalar didn't understand $/ = ""
because PerlIOScalar_unread was broken.
Bump version number of PerlIO::scalar to 0.04.
p4raw-id: //depot/perl@24543
Diffstat (limited to 'ext/PerlIO/t/scalar.t')
| -rw-r--r-- | ext/PerlIO/t/scalar.t | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/ext/PerlIO/t/scalar.t b/ext/PerlIO/t/scalar.t index 818aab575f..8b43acb17a 100644 --- a/ext/PerlIO/t/scalar.t +++ b/ext/PerlIO/t/scalar.t @@ -15,7 +15,7 @@ BEGIN { } $| = 1; -print "1..26\n"; +print "1..27\n"; my $fh; my $var = "ok 2\n"; @@ -149,3 +149,17 @@ $data = undef; open(MEM, '<', \$data) or die "Fail: $!\n"; my $x = join '', <MEM>; print $x eq '' ? "ok 26\n" : "not ok 26\n"; + +{ + # [perl #35929] verify that works with $/ (i.e. test PerlIOScalar_unread) + my $s = <<'EOF'; +line A +line B +a third line +EOF + open(F, '<', \$s) or die "Could not open string as a file"; + local $/ = ""; + my $ln = <F>; + close F; + print $ln eq $s ? "ok 27\n" : "not ok 27\n"; +} |