[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