From b116d89c7803858eedfde32e84f4c13ccb7fa364 Mon Sep 17 00:00:00 2001
From: David Golden <dagolden@cpan.org>
Date: Mon, 4 Aug 2008 21:42:04 -0400
Subject: [PATCH] make uplevel too high test use like regex instead of isnt

---
 t/07_uplevel_too_high.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/t/07_uplevel_too_high.t b/t/07_uplevel_too_high.t
index 33823e6..869d675 100644
--- 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" );