Hi,

The fix hasn't made it to CPAN yet.

If you can compile PAR::Packer, then use the source from

http://svn.openfoundry.org/par/PAR-Packer/trunk/

where this issue has been fixed.

Alternatively, apply attached patch to 0.973 sources.

Regards

Mark


Rob Roy wrote:
> I just installed both PAR and PAR-Packer .973. I have ActiverPerl
> 5.8.8.820. I create an executable of my Perl script but when I run it I
> get the following error message:
> 
>  
> 
> Can't locate Win32.pm in @INC (@INC contains: .) at -e line 826.
> 
> BEGIN failed--compilation aborted at -e line 896.
> 
>  
> 
> I've read the archives about this problem but I thought it'd be fixed in
> .973. Am I missing something? Is there an environment variable that
> needs to be set before compiling and installing the packages?
> 
>  
> 
> Thanks,
> 
> Rob
> 
>  
> 
> 

Index: ChangeLog
===================================================================
--- ChangeLog   (revision 436)
+++ ChangeLog   (working copy)
@@ -1,3 +1,7 @@
+[Changes for 0.975 - May 06, 2007]
+* Bug fixes, etc.
+    - trailing backslashes in @INC paths handled in
+    PAR::StrippedParl::Base
 
 [Changes for 0.975 - May 01, 2007]
 * Bug fixes, etc.
Index: lib/PAR/StrippedPARL/Base.pm
===================================================================
--- lib/PAR/StrippedPARL/Base.pm        (revision 436)
+++ lib/PAR/StrippedPARL/Base.pm        (working copy)
@@ -2,7 +2,7 @@
 use 5.006;
 use strict;
 use warnings;
-our $VERSION = '0.958';
+our $VERSION = '0.975';
 
 use File::Temp ();
 use File::Spec;
@@ -68,7 +68,11 @@
     chmod(oct('755'), $tfile);
 
     # Use this to generate a real parl
-    my @libs = (map {"-I\"$_\""} @INC);
+    my @libs = ();
+    for my $ilib ( @INC ) {
+        $ilib =~ s/\\$/\\\\/;
+        push(@libs, qq(-I\"$ilib\") );
+    }
     my @args = (@libs, qw/-q -B/);
 
     # prepend ./ if applicable
Index: lib/PAR/Packer.pm
===================================================================
--- lib/PAR/Packer.pm   (revision 436)
+++ lib/PAR/Packer.pm   (working copy)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.973';
+our $VERSION = '0.975';
 
 =head1 NAME
 
Index: script/par.pl
===================================================================
--- script/par.pl       (revision 436)
+++ script/par.pl       (working copy)
@@ -688,6 +688,7 @@
     require PAR::Heavy;
     require PAR::Dist;
     require PAR::Filter::PodStrip;
+    eval { require Win32 };
     eval { require Scalar::Util };
 }

Reply via email to