X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Ftag.pl;h=0e39930d2f7c03eda3ba55ad5e4bbb1d47998039;hb=e7846e7f6fded4c4a3139054c5206c1480711867;hp=ca017dd8c0b36a1a757de9a1f907ad83f924bf7f;hpb=6090555243b452a17460ab13510b8a15e0c62f5e;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/samples/tag.pl b/samples/tag.pl
index ca017dd..0e39930 100644
--- a/samples/tag.pl
+++ b/samples/tag.pl
@@ -3,9 +3,11 @@
 use strict;
 use warnings;
 
+use blib;
+
 package Scope;
 
-use Scope::Upper qw/reap localize localize_elem localize_delete :words/;
+use Scope::Upper qw<reap localize localize_elem localize_delete :words>;
 
 sub new {
  my ($class, $name) = @_;
@@ -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..."
   }