1 files changed, 7 insertions, 1 deletions
diff --git a/ext/PerlIO/t/scalar.t b/ext/PerlIO/t/scalar.t
index 4021d431a2..818aab575f 100644
--- a/ext/PerlIO/t/scalar.t
+++ b/ext/PerlIO/t/scalar.t
@@ -15,7 +15,7 @@ BEGIN {
 }
 
 $| = 1;
-print "1..25\n";
+print "1..26\n";
 
 my $fh;
 my $var = "ok 2\n";
@@ -143,3 +143,9 @@ print <$fh>;
     close $fh;
     print $ok ? "ok 25\n" : "not ok 25\n";
 }
+
+my $data = "a non-empty PV";
+$data = undef;
+open(MEM, '<', \$data) or die "Fail: $!\n";
+my $x = join '', <MEM>;
+print $x eq '' ? "ok 26\n" : "not ok 26\n";