From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 26 Dec 2007 17:27:15 +0000 (+0000)
Subject: Remove two warnings (sub diag() was redefined, and implict split is
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd48e7ab8eb6069673c480ccd5a1f28dca88269b;p=p5sagit%2Fp5-mst-13.2.git

Remove two warnings (sub diag() was redefined, and implict split is
deprecated)

p4raw-id: //depot/perl@32736
---

diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t
index 315e378..4055522 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/,