perl-File-Remove/perl-File-Remove-old_File-Spec.patch

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   ();