Merge branch 'master' of ssh://xdg@echo.dagolden.com/git/Sub-Uplevel

rjbs · Sep 9, 2008 · a7896b2 · a7896b2
2 parents b736661 + b116d89
commit a7896b2
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/t/07_uplevel_too_high.t b/t/07_uplevel_too_high.t
@@ -10,7 +10,7 @@ sub show_caller {
 
 sub wrap_show_caller {
     my $uplevel = shift;
-    return uplevel $uplevel, \&show_caller;;
+    return uplevel $uplevel, \&show_caller;
 }
 
 my $warning = '';
@@ -22,5 +22,6 @@ is( $warning, '', "don't warn if ordinary uplevel" );
 
 $warning = '';
 $caller = wrap_show_caller(2);
+my $file = __FILE__;
 is($caller, undef, "wrapper returned correct caller");
-isnt( $warning, '', "warn if too much uplevel" );
+like( $warning, "/uplevel 2 is more than the caller stack at $file line \\d+/", "warn if too much uplevel" );