svn commit: r1053948 - /perl/Apache-Test/trunk/t/import.t

[to...@apache.org]

Author: torsten
Date: Thu Dec 30 17:33:25 2010
New Revision: 1053948

URL: http://svn.apache.org/viewvc?rev=1053948&view=rev
Log:
work around a bug in older Test.pm / perl versions

Modified:
    perl/Apache-Test/trunk/t/import.t

Modified: perl/Apache-Test/trunk/t/import.t
URL: http://svn.apache.org/viewvc/perl/Apache-Test/trunk/t/import.t?rev=1053948&r1=1053947&r2=1053948&view=diff
==============================================================================
--- perl/Apache-Test/trunk/t/import.t (original)
+++ perl/Apache-Test/trunk/t/import.t Thu Dec 30 17:33:25 2010
@@ -125,7 +125,15 @@ Test::skip $pio, sub {
 
 	local *STDOUT;
 	open STDOUT, '>', \$output;
-	Apache::Test::plan tests=>17;
+	{
+	    # suppress an 'uninitialized' warning in older perl versions
+	    local $SIG{__WARN__}=sub {
+		warn $_[0]
+		    unless $_[0]=~m!uninitialized\svalue\sin\sopen\b.+
+				    Test/Builder\.pm!x;
+	    };
+	    Apache::Test::plan tests=>17;
+	}
 	Test::More::isnt "hugo", "erwin", "hugo is not erwin";
 	@res=($Test::ntest, $Test::planned);
 	Test::Builder->new->reset;
@@ -133,5 +141,5 @@ Test::skip $pio, sub {
     return "@res";
 }, '-19 -42', '$Test::ntest, $Test::planned did not change';
 
-Test::skip $pio, $output, qr/^1\.\.17$/m, 'planned';
-Test::skip $pio, $output, qr/^ok 1 - hugo is not erwin$/m, 'Test::More::isnt';
+Test::skip $pio, $output=~/^1\.\.17$/m;
+Test::skip $pio, $output=~/^ok 1 - hugo is not erwin$/m;