| Subject: | use-devel-checklib - useless inc/IO dir and bad INC path on Win32 |
use-devel-checkos still creates an "IO" directory though
IO::CaptureOutput isn't used anymore.
Also, using catfile() to look in %INC is wrong because %INC always uses
forward slashes so catfile(qw/Devel CheckOS.pm/) is "Devel\CheckOS.pm"
on Win32 and can't be found and thus can't be copied.
Patch follows:
--- use-devel-checklib.orig Mon Mar 03 10:50:21 2008
+++ use-devel-checklib Mon Mar 03 10:51:05 2008
@@ -15,14 +15,9 @@
mkdir 'inc';
mkdir 'inc/Devel';
-mkdir 'inc/IO';
-copy($INC{File::Spec->catfile(qw(Devel CheckLib.pm))},
+copy($INC{"Devel/CheckLib.pm"},
File::Spec->catfile(qw(inc Devel CheckLib.pm)));
-
-# use IO::CaptureOutput;
-# copy($INC{File::Spec->catfile(qw(IO CaptureOutput.pm))},
-# File::Spec->catfile(qw(inc IO CaptureOutput.pm)));
foreach my $file (@files) {
open(FILE, $file) || next;