Re: Problem with PAR -> Solved

[Autrijus Tang]

On Sat, Mar 15, 2003 at 05:11:18PM -0600, Bruce Winter wrote:
> Thanks for the suggestions.  I could indeed add a bunch of requires for
> various Tk/*.al files and then the resulting pp generated file ran ok.   But
> as soon as I moved it to a non-perl machine, or simply renamed the original
> perl Tk lib dir, it would fail, indicating that the requires did not cause
> pp to slurp those files into the PAR file.
> 
> Any other suggestions?

Hey Bruce:  Here's a patch that I just made to work around Tk::Widget's
autoload-detection mechanism.  Can you try applying it to your current
'pp' (or 'pp.bat') and see if it works for you?

If it does, I'll release PAR 0.66 with this fix asap.

Thanks,
/Autrijus/

--- x   Sun Mar 16 05:32:50 2003
+++ pp  Sun Mar 16 05:30:29 2003
@@ -125,6 +125,11 @@
                ^=cut\s*$
                \n*
            //smgx unless $verbatim;
+
+           # XXX: Tk::Widget hardcoding
+           $content =~ s/if \(defined\(\$name=\$INC\{"\$pkg.pm"\}\)\)/if (0)/
+               if $map{$_} =~ /\bTk\b.*\bWidget\.pm/i;
+
            $size += length($content);
            $zip->addString( \$content => "lib/$_", %zip_args );
        }

pgp00000.pgp
Description: PGP signature