Change 32736 by [EMAIL PROTECTED] on 2007/12/26 17:27:15
Remove two warnings (sub diag() was redefined, and implict split is
deprecated)
Affected files ...
... //depot/perl/ext/B/t/concise.t#17 edit
Differences ...
==== //depot/perl/ext/B/t/concise.t#17 (text) ====
Index: perl/ext/B/t/concise.t
--- perl/ext/B/t/concise.t#16~31985~ 2007-09-27 01:56:05.000000000 -0700
+++ perl/ext/B/t/concise.t 2007-12-26 09:27:15.000000000 -0800
@@ -14,7 +14,6 @@
exit 0;
}
require 'test.pl'; # we use runperl from 'test.pl', so can't use
Test::More
- sub diag { print "# @_\n" } # but this is still handy
}
plan tests => 156;
@@ -201,7 +200,8 @@
sub defd_empty {};
($res,$err) = render('-basic', \&defd_empty);
- is(scalar split(/\n/, $res), 3,
+ my @lines = split(/\n/, $res);
+ is(scalar @lines, 3,
"'sub defd_empty {}' seen as 3 liner");
is(1, $res =~ /leavesub/ && $res =~ /(next|db)state/,
End of Patch.
