[PATCH] Re: Cannot open : No such file or directory at /home/gabor/perl5lib/lib/Module/ScanDeps.pm line 573.

[Roderich Schupp]

On Fri, Aug 29, 2008 at 10:23 AM, Gabor Szabo <[EMAIL PROTECTED]> wrote:
> pp -o padre -I lib  script/padre -M Data::Dum
> Cannot open : No such file or directory at
> /home/gabor/perl5lib/lib/Module/ScanDeps.pm line 573.
>
> I gave a none-existent module on purpose.
> Module::ScanDeps should at least tell me what it cannot open.
>
> using Module::ScanDeps 0.84

The bug is actually in PAR::Packer (0.982), patch below.

Cheers, Roderich


--- PAR/Packer.pm.orig Fri Aug 29 13:10:04 2008
+++ PAR/Packer.pm      Fri Aug 29 13:17:38 2008
@@ -705,7 +705,8 @@
     # Apply %Preload to the -M'd modules and add them to the list of
     # files to scan
     foreach my $module (@modules) {
-        my $file = &$inc_find($module);
+        my $file = &$inc_find($module)
+           or $self->_die("Cannot find module $module (specified with -M)\n");
         push @files, $file;

         my $preload = Module::ScanDeps::_get_preload($module) or next;