Wed Jul 29 07:50:35 2015: Request 106142 was acted upon.
Transaction: Ticket created by SLAFFAN
       Queue: Module-ScanDeps
     Subject: [Patch] Preload dependencies for PDL and PDL::NiceSlice
   Broken in: (no value)
    Severity: (no value)
       Owner: Nobody
  Requestors: slaf...@cpan.org
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=106142 >


Attached is a patch to add preloads for PDL and PDL::NiceSlice.  

Without the preloads the code below fails after being packed using pp (unless 
the -x option is specified).

Regards,
Shawn.


use PDL;
use PDL::NiceSlice;
my $x = pdl [[2,3,4],[1,2,3]]; 
print $x(1,);
print $x;

Index: lib/Module/ScanDeps.pm
===================================================================
--- lib/Module/ScanDeps.pm	(revision 1595)
+++ lib/Module/ScanDeps.pm	(working copy)
@@ -430,6 +430,12 @@
         _glob_in_inc('PDF/API2/Basic/TTF', 1);
     },
     'PDF/Writer.pm'                 => 'sub',
+    'PDL.pm' => sub { @{ _get_preload('utf8.pm') } },
+    'PDL/NiceSlice.pm'              => [
+        'PDL/NiceSlice/FilterUtilCall.pm',
+        'PDL/NiceSlice/FilterSimple.pm',
+        'PDL/NiceSlice/ModuleCompile.pm',
+    ],
     'Perl/Critic.pm'                => 'sub', #not only Perl/Critic/Policy
     'PerlIO.pm'                     => [ 'PerlIO/scalar.pm' ],
     'Pod/Usage.pm'                  => sub {  # from Pod::Usage (as of 1.61)

Reply via email to