diagnostic leakage in ext/PerlIO/scalar/t/scalar_ungetc.t

Message-ID: <49168FCE.8020105@pobox.com>

Plus converting the whole file from DOS to UNIX format
and adding a newline at the end.

p4raw-id: //depot/perl@34782

diff --git a/ext/PerlIO/scalar/t/scalar_ungetc.t b/ext/PerlIO/scalar/t/scalar_ungetc.t
index 8ca7eb2..a4cd695 100644 (file)
--- a/ext/PerlIO/scalar/t/scalar_ungetc.t
+++ b/ext/PerlIO/scalar/t/scalar_ungetc.t
@@ -1,36 +1,36 @@
-#!perl -w\r
-use strict;\r
-use IO::Handle; # ungetc()\r
-\r
-use Test::More tests => 20;\r
-\r
-require_ok q{PerlIO::scalar};\r
-\r
-my $s = 'foo';\r
-Internals::SvREADONLY($s, 1);\r
-eval{\r
-       $s = 'bar';\r
-};\r
-like $@, qr/Modification of a read-only value/, '$s is readonly';\r
-\r
-ok open(my $io, '<', \$s), 'open';\r
-\r
-getc $io;\r
-\r
-my $a = ord 'A';\r
-\r
-diag "buffer[$s]";\r
-is $io->ungetc($a), $a, 'ungetc';\r
-diag "buffer[$s]";\r
-\r
-is getc($io), chr($a), 'getc';\r
-\r
-is $s, 'foo', '$s remains "foo"';\r
-\r
-is getc($io), 'o', 'getc/2';\r
-is getc($io), 'o', 'getc/3';\r
-is getc($io), undef, 'getc/4';\r
-\r
-for my $c($a .. ($a+10)){\r
-       is $io->ungetc($c), $c, "ungetc($c)";\r
-}
\ No newline at end of file
+#!perl -w
+use strict;
+use IO::Handle; # ungetc()
+
+use Test::More tests => 20;
+
+require_ok q{PerlIO::scalar};
+
+my $s = 'foo';
+Internals::SvREADONLY($s, 1);
+eval{
+       $s = 'bar';
+};
+like $@, qr/Modification of a read-only value/, '$s is readonly';
+
+ok open(my $io, '<', \$s), 'open';
+
+getc $io;
+
+my $a = ord 'A';
+
+note "buffer[$s]";
+is $io->ungetc($a), $a, 'ungetc';
+note "buffer[$s]";
+
+is getc($io), chr($a), 'getc';
+
+is $s, 'foo', '$s remains "foo"';
+
+is getc($io), 'o', 'getc/2';
+is getc($io), 'o', 'getc/3';
+is getc($io), undef, 'getc/4';
+
+for my $c($a .. ($a+10)){
+       is $io->ungetc($c), $c, "ungetc($c)";
+}