From: Michael G. Schwern <schwern@pobox.com>
Date: Sat, 8 Nov 2008 23:22:54 +0000 (-0800)
Subject: diagnostic leakage in ext/PerlIO/scalar/t/scalar_ungetc.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d85e265b2ae3a60df7d1fa65504e5ad351eac3c7;p=p5sagit%2Fp5-mst-13.2.git

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
--- a/ext/PerlIO/scalar/t/scalar_ungetc.t
+++ b/ext/PerlIO/scalar/t/scalar_ungetc.t
@@ -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)";
+}