This is 0.34

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

diff --git a/samples/tag.pl b/samples/tag.pl
index ca017dd8c0b36a1a757de9a1f907ad83f924bf7f..0e39930d2f7c03eda3ba55ad5e4bbb1d47998039 100644 (file)
--- 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..."
   }