File perl-File-Remove-old_File-Spec.patch of Package perl-File-Remove
Index: File-Remove-1.49/lib/File/Remove.pm
===================================================================
--- File-Remove-1.49.orig/lib/File/Remove.pm
+++ File-Remove-1.49/lib/File/Remove.pm
@@ -14,7 +14,7 @@ BEGIN {
# If we ever need a Mac::Glue object we will want to cache it.
my $glue;
-
+use lib '__vendorperl__';
use File::Path ();
use File::Glob ();
use File::Spec 3.2701 ();
Index: File-Remove-1.49/t/03_deep_readonly.t
===================================================================
--- File-Remove-1.49.orig/t/03_deep_readonly.t
+++ File-Remove-1.49/t/03_deep_readonly.t
@@ -8,6 +8,7 @@ BEGIN {
$^W = 1;
}
+use lib '__vendorperl__';
use Test::More tests => 12;
use File::Spec::Functions ':ALL';
use File::Copy ();
Index: File-Remove-1.49/t/04_can_delete.t
===================================================================
--- File-Remove-1.49.orig/t/04_can_delete.t
+++ File-Remove-1.49/t/04_can_delete.t
@@ -8,6 +8,7 @@ BEGIN {
$^W = 1;
}
+use lib '__vendorperl__';
use Test::More tests => 12;
use File::Spec::Functions ':ALL';
use File::Copy ();
Index: File-Remove-1.49/t/05_links.t
===================================================================
--- File-Remove-1.49.orig/t/05_links.t
+++ File-Remove-1.49/t/05_links.t
@@ -6,6 +6,7 @@ BEGIN {
$^W = 1;
}
+use lib '__vendorperl__';
use Test::More;
use File::Spec::Functions ':ALL';
use File::Remove ();
Index: File-Remove-1.49/t/06_curly.t
===================================================================
--- File-Remove-1.49.orig/t/06_curly.t
+++ File-Remove-1.49/t/06_curly.t
@@ -10,6 +10,7 @@ BEGIN {
$^W = 1;
}
+use lib '__vendorperl__';
use Test::More tests => 6;
use File::Spec::Functions ':ALL';
use File::Remove ();
Index: File-Remove-1.49/t/07_cwd.t
===================================================================
--- File-Remove-1.49.orig/t/07_cwd.t
+++ File-Remove-1.49/t/07_cwd.t
@@ -6,6 +6,7 @@ BEGIN {
$^W = 1;
}
+use lib '__vendorperl__';
use Test::More tests => 13;
use File::Spec::Functions ':ALL';
use File::Remove ();
Index: File-Remove-1.49/t/08_spaces.t
===================================================================
--- File-Remove-1.49.orig/t/08_spaces.t
+++ File-Remove-1.49/t/08_spaces.t
@@ -9,6 +9,7 @@ BEGIN {
$^W = 1;
}
+use lib '__vendorperl__';
use Test::More qw(no_plan);
use File::Spec::Functions ':ALL';
use File::Copy ();