--- XML-SAX-0.12/SAX.pm-	2002-11-19 18:25:45 +0000

+++ XML-SAX-0.12/SAX.pm	2004-04-28 05:20:48 +0000

@@ -17,6 +17,8 @@ use File::Spec ();

 use Symbol qw(gensym);

 use XML::SAX::ParserFactory (); # loaded for simplicity

+use Config qw(%Config);

+

 use constant PARSER_DETAILS => "ParserDetails.ini";

 use constant Namespaces => "http://xml.org/sax/features/namespaces";

@@ -55,6 +57,9 @@ sub load_parsers {

     if (!$dir) {

         $dir = $INC{'XML/SAX.pm'};

         $dir = dirname($dir);

+    

+	# ALT: /etc/perl5 support

+	$dir =~ s,\Q$Config{installvendorlib},/etc/perl5,;

     }

     my $fh = gensym();

@@ -183,6 +188,9 @@ sub save_parsers {

     my $dir = $INC{'XML/SAX.pm'};

     $dir = dirname($dir);

+    # ALT: /etc/perl5 support

+    $dir =~ s,\Q$Config{installvendorlib},/etc/perl5,;

+    

     my $file = File::Spec->catfile($dir, "SAX", PARSER_DETAILS);

     chmod 0644, $file;

     unlink($file);