[Catalyst] Debian recommendation
Evan Carroll
lists at evancarroll.com
Wed Oct 28 00:14:02 GMT 2009
> Then I suppose it's a good thing that no such thing happens.
Sure it happens;
ecarroll at x60s:~$ diff /usr/local/share/perl/5.10.0/XML/SAX.pm
/usr/share/perl5/XML/SAX.pm -C5
*** /usr/local/share/perl/5.10.0/XML/SAX.pm 2008-08-05 07:36:24.000000000 -0500
--- /usr/share/perl5/XML/SAX.pm 2009-04-29 08:28:25.000000000 -0500
***************
*** 177,186 ****
--- 177,195 ----
}
sub save_parsers {
my $class = shift;
+ ### DEBIAN MODIFICATION
+ print "\n";
+ print "Please use 'update-perl-sax-parsers(8) to register this
parser.'\n";
+ print "See /usr/share/doc/libxml-sax-perl/README.Debian.gz for
more info.\n";
+ print "\n";
+
+ return $class; # rest of the function is disabled on Debian.
+ ### END DEBIAN MODIFICATION
+
# get directory from wherever XML::SAX is installed
my $dir = $INC{'XML/SAX.pm'};
$dir = dirname($dir);
my $file = File::Spec->catfile($dir, "SAX", PARSER_DETAILS);
***************
*** 204,213 ****
--- 213,256 ----
close $fh;
return $class;
}
--
Evan Carroll
System Lord of the Internets
http://www.evancarroll.com
More information about the Catalyst
mailing list