X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F63-uplevel-ctl.t;h=6b1ec188480053cb683018af750a0a076dcffd0a;hb=2ede1b8c4c9b948ddfe278e44f19f4a57648cf10;hp=fda4410f8791538e44e3e030b71f069acd43c713;hpb=2f468390ee816db81380ced997a5b75660c01d46;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/63-uplevel-ctl.t b/t/63-uplevel-ctl.t
index fda4410..6b1ec18 100644
--- a/t/63-uplevel-ctl.t
+++ b/t/63-uplevel-ctl.t
@@ -223,7 +223,7 @@ SKIP: {
  like $@, qr/^tomato at \Q$0\E line $line/, "$desc (third): correct exception";
 }
 
-my $has_B = do { local $@; eval 'require B; 1' };
+my $has_B = do { local $@; eval { require B; 1 } };
 
 sub check_depth {
  my ($code, $expected, $desc) = @_;