diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-26 17:27:15 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-26 17:27:15 +0000 |
| commit | dd48e7ab8eb6069673c480ccd5a1f28dca88269b (patch) | |
| tree | cadd9cc76a3c1225ba03234fb9c33821f191df8d /ext | |
| parent | a784fd7c04b5b7c80f2ffe634e5f2d348fbbad13 (diff) | |
| download | perl-dd48e7ab8eb6069673c480ccd5a1f28dca88269b.tar.gz | |
Remove two warnings (sub diag() was redefined, and implict split is
deprecated)
p4raw-id: //depot/perl@32736
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/t/concise.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index 315e3787c9..4055522e45 100644 --- a/ext/B/t/concise.t +++ b/ext/B/t/concise.t @@ -14,7 +14,6 @@ BEGIN { 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 @@ SKIP: { 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/, |