Sun Mar 28 13:38:10 2010: Request 56020 was acted upon.
Transaction: Correspondence added by RSCHUPP
Queue: Module-ScanDeps
Subject: PAR::Packer and PDF::API2 Unicode::UCD: failed to find
UnicodeData.txt
Broken in: 0.96
Severity: Normal
Owner: Nobody
Requestors: dji...@cpan.org
Status: open
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=56020 >
On Sun Mar 28 08:43:12 2010, DJIBEL wrote:
> Unicode::UCD: failed to find UnicodeData.txt in CODE(0x2c84f7c)
> C:\Users\user\AppData\Local\Temp\par-user\cache-7cb6bafd0
> 5de0244ffffca19c561d6fbaa5f768c\inc\lib
> C:\Users\user\AppData\Local\Temp\par-user\cache-
> 7cb6bafd05de0244ffffca19c561d6fba
> a5f768c\inc CODE(0x2a8d0b4) CODE(0x2a8d3b4)
Yikes, another one of those modules that scatters its data files
over the installation. I wonder why this hasn't come up earlier,
since Unicode::UCD is in Perl core since 5.7.3. Anyway, its
search strategy for a data file with path @path is
for my $d (@INC) {
use File::Spec;
$f = File::Spec->catfile($d, "unicore", @path);
last if open($$rfh, $f);
}
(and all data files seem to have the suffix .txt). The attached
patch fo Module::ScanDeps should do the trick.
--- lib/Module/ScanDeps.pm~ 2009-09-16 11:06:56.000000000 +0200
+++ lib/Module/ScanDeps.pm 2010-03-28 19:34:06.000000000 +0200
@@ -397,6 +397,9 @@
'Tk/FBox.pm' => [qw( Tk/folder.xpm Tk/file.xpm )],
'Tk/Getopt.pm' => [qw( Tk/openfolder.xpm Tk/win.xbm )],
'Tk/Toplevel.pm' => [qw( Tk/Wm.pm )],
+ 'Unicode/UCD.pm' => sub {
+ grep /\.txt$/, map "unicore/$_->{name}", _glob_in_inc('unicore', 0);
+ },
'URI.pm' => sub {
grep !/.\b[_A-Z]/, _glob_in_inc('URI', 1);
},
