Integrate mainline.

[p5sagit/p5-mst-13.2.git] / ext / PerlIO / t / scalar.t

diff --git a/ext/PerlIO/t/scalar.t b/ext/PerlIO/t/scalar.t
index fd1b852..4e6615e 100644 (file)
--- a/ext/PerlIO/t/scalar.t
+++ b/ext/PerlIO/t/scalar.t
@@ -10,7 +10,7 @@ BEGIN {
 }
 
 $| = 1;
-print "1..22\n";
+print "1..23\n";
 
 my $fh;
 my $var = "ok 2\n";
@@ -115,3 +115,8 @@ while (<$dup>) {
 close($fh);
 close($dup);
 
+# Check reading from non-string scalars
+
+open $fh, '<', \42;
+print <$fh> eq "42" ? "ok 23\n" : "not ok 23\n";
+close $fh;