Fix numerous localizations in the same scope not happening

[perl/modules/Scope-Upper.git] / samples / tag.pl

diff --git a/samples/tag.pl b/samples/tag.pl
index ca017dd8c0b36a1a757de9a1f907ad83f924bf7f..c414c0790b843e1244f62cc882a810504a527d58 100644 (file)
--- a/samples/tag.pl
+++ b/samples/tag.pl
@@ -3,6 +3,8 @@
 use strict;
 use warnings;
 
+use blib;
+
 package Scope;
 
 use Scope::Upper qw/reap localize localize_elem localize_delete :words/;
@@ -53,7 +55,7 @@ package UserLand;
 
   {
    Scope->private;
-   eval { require Cwd };
+   eval { delete $INC{"Cwd.pm"}; require Cwd }; # blib loads Cwd
    print $@;             # prints "Can't locate Cwd.pm in @INC (@INC contains:) at..."
   }