Bug #57494 for PAR-Packer: JSON::Any doesn't package in PAR?

On Fri, May 14, 2010 at 10:31 PM, Kartik Thakore via RT <bug-PAR-Packer@rt.cpan.org> wrote: Show quoted text
(cc'ing to par mailing list) Ouch! There are actually several problems here: (1) Simply $ pp -o json -e 'use JSON::Any; 1;' (when you have actually JSON::XS installed) should have worked - at least it packed JSON/Any.pm and correctly inferred JSON/XS.pm and packed it, too. But JSON::XS (as JSON::Any's first choice) couldn't be loaded (see (2)), so JSON went on looking for JSON which you had also explicitly packed. That couldn't be loaded either (see (3)), so JSON::Any tried JSON::DWIW which wasn't packed. So that's the error message you got. Note that JSON::Any suppresses the actual errors from loading JSON::XS etc (2) If you explicitly tried to pack JSON::XS, e.g. $ pp -o jsonxs -e 'use JSON::XS; 1;' you would have seen: $ ./jsonxs Can't locate attributes.pm in @INC (@INC contains: ...) at /usr/lib/perl/5.12/DynaLoader.pm line 215. BEGIN failed--compilation aborted. But why is attributes.pm required (and hasn't been packed)? Turns out the XS part of JSON::XS (i.e. JSON-XS-2.29/XS.xs) contains SV *incr_text (JSON *self) ATTRS: lvalue CODE: { ... That's XS for Perl sub incr_text : lvalue { .... It's specifying an "lvalue" attribute on a subroutine. Either form causes the Perl runtime to implicitly "require attributes". Of course, this implicit requirement can't be detected by Module::ScanDeps (which is used by PAR::Packer to find recursively all modules used by your script ). As an immediate band-aid for your problem, add "-M attributes" to your pp command line and that should make at least JSON::XS (and thus JSON::Any) work. (3) As for JSON, if you tried $ pp -o jasonpp -e 'use JSON; 1;' you would have got ./jasonpp Can't locate JSON/PP.pm in @INC (@INC contains: ...) at (eval 24) line 2. at script/pp7Jv9C.pl line 1 Compilation failed in require at script/pp7Jv9C.pl line 1. So it's missing JSON/PP. But that in turn requires JSON/PP58 (or some other JSON/PPnn depending on your actual version of perl). This probably warrants a special rule in Module::ScanDeps. Cheers, Roderich

Following up on my previous post: - JSON::XS needs "attributes.pm" which can't be autodetected. We could add a special rule to Module::ScanDeps for this. But as it turns out, "attributes.pm" is another one of those modules that might be implicitly require'd by the Perl runtime itself (like "Errno.pm" or "PerlIO.pm"), I'm inclined to add it to the list of "always pack" modules (cf. sub require_modules in PAR-Packer/script/par.pl). @Steffen: What do you think? - JSON needs a special rule in Module::ScanDeps to add all of JSON/PP.pm JSON/PP5005.pm JSON/PP58.pm JSON/PP JSON/PP/Boolean.pm JSON/PP56.pm This will do the trick: 'JSON.pm' => sub { # ignore other JSON::* modules (e.g. JSON::Syck, JSON::Any), # but accept JSON::XS (because JSON.pm might use it if present) return( grep /^JSON\/(PP|XS)/, _glob_in_inc('JSON', 1) ); }, Cheers, Roderich

I'e committed the proposed fixes to Module::ScanDeps and PAR::Packer. The former should make packing JSON work and the latter should make packing JSON::XS work. You need both to make JSON::Any work (if your actually installed JSON modules are either JOSON or JSON::XS or both). Cheers, Roderich