Change 34782 by [EMAIL PROTECTED] on 2008/11/09 10:04:03
Subject: [PATCH] diagnostic leakage in
ext/PerlIO/scalar/t/scalar_ungetc.t
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Sat, 08 Nov 2008 23:22:54 -0800
Message-ID: <[EMAIL PROTECTED]>
Plus converting the whole file from DOS to UNIX format
and adding a newline at the end.
Affected files ...
... //depot/perl/ext/PerlIO/scalar/t/scalar_ungetc.t#2 edit
Differences ...
==== //depot/perl/ext/PerlIO/scalar/t/scalar_ungetc.t#2 (text) ====
Index: perl/ext/PerlIO/scalar/t/scalar_ungetc.t
--- perl/ext/PerlIO/scalar/t/scalar_ungetc.t#1~34773~ 2008-11-07
20:02:03.000000000 -0800
+++ perl/ext/PerlIO/scalar/t/scalar_ungetc.t 2008-11-09 02:04:03.000000000
-0800
@@ -1,36 +1,36 @@
-#!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';
-
-diag "buffer[$s]";
-is $io->ungetc($a), $a, 'ungetc';
-diag "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)";
-}
\ 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)";
+}
End of Patch.
