Update of /cvsroot/fink/experimental/todai/ecc/main/finkinfo/libs/perlmods
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9744
Added Files:
xml-sax-pm581.info xml-sax-pm581.patch
Log Message:
Fix the PostRmScript until the maintainer does.
--- NEW FILE: xml-sax-pm581.patch ---
diff -Nur XML-SAX-0.12.orig/Makefile.PL XML-SAX-0.12/Makefile.PL
--- XML-SAX-0.12.orig/Makefile.PL Mon Jan 21 23:32:59 2002
+++ XML-SAX-0.12/Makefile.PL Mon Dec 2 01:24:58 2002
@@ -7,22 +7,23 @@
'File::Temp' => 0,
'XML::NamespaceSupport' => 0.03,
},
+ 'EXE_FILES' => [ 'update-perl-sax-parsers' ],
);
-sub MY::install {
- package MY;
- my $script = shift->SUPER::install(@_);
- if (ExtUtils::MakeMaker::prompt("Do you want XML::SAX to alter
ParserDetails.ini?", "Y") =~ /^y/i) {
- $script =~ s/install :: (.*)$/install :: $1 install_sax_pureperl/m;
- $script .= <<"INSTALL";
-
-install_sax_pureperl :
[EMAIL PROTECTED](PERL) -MXML::SAX -e
"XML::SAX->add_parser(q(XML::SAX::PurePerl))->save_parsers()"
-
-INSTALL
-
- }
-
- return $script;
-}
+#sub MY::install {
+# package MY;
+# my $script = shift->SUPER::install(@_);
+# if (ExtUtils::MakeMaker::prompt("Do you want XML::SAX to alter
ParserDetails.ini?", "Y") =~ /^y/i) {
+# $script =~ s/install :: (.*)$/install :: $1 install_sax_pureperl/m;
+# $script .= <<"INSTALL";
+#
+#install_sax_pureperl :
[EMAIL PROTECTED](PERL) -MXML::SAX -e
"XML::SAX->add_parser(q(XML::SAX::PurePerl))->save_parsers()"
+#
+#INSTALL
+#
+# }
+#
+# return $script;
+#}
diff -Nur XML-SAX-0.12.orig/SAX.pm XML-SAX-0.12/SAX.pm
--- XML-SAX-0.12.orig/SAX.pm Tue Nov 19 20:25:45 2002
+++ XML-SAX-0.12/SAX.pm Mon Dec 2 01:56:35 2002
@@ -180,13 +180,46 @@
my $class = shift;
# get directory from wherever XML::SAX is installed
- my $dir = $INC{'XML/SAX.pm'};
- $dir = dirname($dir);
+ #my $dir = $INC{'XML/SAX.pm'};
+ #$dir = dirname($dir);
- my $file = File::Spec->catfile($dir, "SAX", PARSER_DETAILS);
+ #my $file = File::Spec->catfile($dir, "SAX", PARSER_DETAILS);
+ #chmod 0644, $file;
+ #unlink($file);
+
+ #my $fh = gensym();
+ #open($fh, ">$file") ||
+ # die "Cannot write to $file: $!";
+
+ #foreach my $p (@$known_parsers) {
+ # print $fh "[$p->{Name}]\n";
+ # foreach my $key (keys %{$p->{Features}}) {
+ # print $fh "$key = $p->{Features}{$key}\n";
+ # }
+ # print $fh "\n";
+ #}
+
+ #print $fh "\n";
+
+ #close $fh;
+
+ return $class;
+}
+
+sub save_parsers_debian {
+ my $class = shift;
+ my ($parser_module) = @_;
+
+ # add parser
+ $known_parsers = [];
+ $class->add_parser($parser_module);
+
+ # get parser's ParserDetails file
+ my $dir = '@PREFIX@/etc/perl/XML/SAX/ParserDetails.d';
+ my $file = File::Spec->catfile($dir, $parser_module);
chmod 0644, $file;
unlink($file);
-
+
my $fh = gensym();
open($fh, ">$file") ||
die "Cannot write to $file: $!";
diff -Nur XML-SAX-0.12.orig/t/01known.t XML-SAX-0.12/t/01known.t
--- XML-SAX-0.12.orig/t/01known.t Mon Jan 28 21:35:46 2002
+++ XML-SAX-0.12/t/01known.t Mon Dec 2 01:54:06 2002
@@ -1,6 +1,6 @@
use Test;
-BEGIN { plan tests => 3 }
-use XML::SAX;
-ok(XML::SAX->save_parsers);
-ok(XML::SAX->load_parsers);
-ok(@{XML::SAX->parsers}, 0);
+BEGIN { plan tests => 0 }
+#use XML::SAX;
+#ok(XML::SAX->save_parsers);
+#ok(XML::SAX->load_parsers);
+#ok(@{XML::SAX->parsers}, 0);
diff -Nur XML-SAX-0.12.orig/t/99cleanup.t XML-SAX-0.12/t/99cleanup.t
--- XML-SAX-0.12.orig/t/99cleanup.t Mon Jan 28 21:28:01 2002
+++ XML-SAX-0.12/t/99cleanup.t Mon Dec 2 01:54:21 2002
@@ -1,8 +1,8 @@
use Test;
-BEGIN { plan tests => 1 }
-use File::Spec;
-ok(unlink(
- File::Spec->catdir(qw(blib lib XML SAX ParserDetails.ini))),
- 1,
- 'delete ParserDetails.ini'
-);
+BEGIN { plan tests => 0 }
+#use File::Spec;
+#ok(unlink(
+# File::Spec->catdir(qw(blib lib XML SAX ParserDetails.ini))),
+# 1,
+# 'delete ParserDetails.ini'
+#);
diff -Nur XML-SAX-0.12.orig/update-perl-sax-parsers
XML-SAX-0.12/update-perl-sax-parsers
--- XML-SAX-0.12.orig/update-perl-sax-parsers Thu Jan 1 02:00:00 1970
+++ XML-SAX-0.12/update-perl-sax-parsers Mon Dec 2 01:30:53 2002
@@ -0,0 +1,150 @@
+#!/usr/bin/perl
+## ----------------------------------------------------------------------
+## Debian update-perl-sax-parsers version 0.1
+## ----------------------------------------------------------------------
+## Copyright (C) 2001 Ardo van Rangelrooij <[EMAIL PROTECTED]>.
+##
+## This is free software; see the GNU General Public Licence version 2
+## or later for copying conditions. There is NO warranty.
+## ----------------------------------------------------------------------
+
+## ----------------------------------------------------------------------
+use File::Spec ();
+use XML::SAX ();
+
+## ----------------------------------------------------------------------
+$0 =~ m|[^/]+$|;
+$name = $&;
+
+## ----------------------------------------------------------------------
+while ( $ARGV[0] =~ m/^--/ )
+{
+ $_ = shift( @ARGV );
+ last if $_ eq '--';
+ if ( $_ eq '--add' )
+ {
+ $add = 1;
+ }
+ elsif ( $_ eq '--remove' )
+ {
+ $remove = 1;
+ }
+ elsif ( $_ eq '--update' )
+ {
+ $update = 1;
+ }
+ elsif ( $_ eq '--quiet' )
+ {
+ $quiet = 1;
+ }
+ elsif ( $_ eq '--test' )
+ {
+ $debug = 1;
+ }
+ elsif ( $_ eq '--help' )
+ {
+ &usage;
+ exit 0;
+ }
+ elsif ( $_ eq '--version' )
+ {
+ &version;
+ exit 0;
+ }
+ else
+ {
+ print STDERR "$name: unknown option \`$_'\n";
+ &usage;
+ exit 1;
+ }
+}
+
+## ----------------------------------------------------------------------
+if ( ( $add || $remove ) && ! @ARGV )
+{
+ print STDERR "$name: too few arguments\n";
+ exit 1;
+}
+
+## ----------------------------------------------------------------------
+$parser_module = shift( @ARGV ) if $add || $remove;
+
+## ----------------------------------------------------------------------
+if ( @ARGV )
+{
+ print STDERR "$name: too many arguments\n";
+ exit 1;
+}
+
+## ----------------------------------------------------------------------
+print STDERR "$name: test mode - Perl SAX parsers file will not be updated\n"
+ if $debug && ! $quiet;
+
+## ----------------------------------------------------------------------
+my $PARSER_DETAILS_DIR = "@PREFIX@/etc/perl/XML/SAX/ParserDetails.d";
+my $PARSER_DETAILS_FILE = "@PREFIX@/etc/perl/XML/SAX/ParserDetails.ini";
+
+## ----------------------------------------------------------------------
+if ( $add )
+{
+ print "$name: adding Perl SAX parser module info file of
$parser_module...\n"
+ unless $quiet;
+
+ XML::SAX->save_parsers_debian( $parser_module );
+}
+elsif ( $remove )
+{
+ print "$name: removing Perl SAX parser module info file of
$parser_module...\n"
+ unless $quiet;
+
+ my $parser_file = File::Spec->catfile( $PARSER_DETAILS_DIR,
$parser_module);
+ unlink( $parser_file );
+}
+elsif ( $update )
+{
+ print "$name: updating overall Perl SAX parser modules info file...\n"
+ unless $quiet;
+
+ open( PARSER_DETAILS_FILE, ">$PARSER_DETAILS_FILE" )
+ || die "Cannot write to $PARSER_DETAILS_FILE: $!";
+ opendir( PARSER_DETAILS_DIR, $PARSER_DETAILS_DIR )
+ || die "Cannot access $PARSER_DETAILS_DIR: $!";
+ while ( defined( $parser_details = readdir( PARSER_DETAILS_DIR ) ) )
+ {
+ next if $parser_details =~ /^\.\.?$/; # skip . and ..
+ open( PARSER_DETAILS, "$PARSER_DETAILS_DIR/$parser_details" )
+ || die "Cannot read from $parser_details: $!";
+ while ( <PARSER_DETAILS> ) { print PARSER_DETAILS_FILE; }
+ close( PARSER_DETAILS );
+ }
+ closedir( PARSER_DETAILS_DIR );
+ close( PARSER_DETAILS_FILE );
+}
+
+## ----------------------------------------------------------------------
+exit 0;
+
+## ----------------------------------------------------------------------
+sub usage
+{
+ print STDERR <<END;
+Usage:
+ $name <options> --add <parser_module>
+ $name <options> --remove <parser_module>
+ $name <options> --update
+
+Options:
+ --quiet be quiet
+ --test do not modify any files, enables debugging mode
+ --version display version number
+ --help display this help text (usage)
+END
+}
+
+## ----------------------------------------------------------------------
+sub version
+{
+ print "Debian $name version 0.1\n";
+}
+
+## ----------------------------------------------------------------------
diff -Nur XML-SAX-0.12.orig/update-perl-sax-parsers.8
XML-SAX-0.12/update-perl-sax-parsers.8
--- XML-SAX-0.12.orig/update-perl-sax-parsers.8 Thu Jan 1 02:00:00 1970
+++ XML-SAX-0.12/update-perl-sax-parsers.8 Mon Dec 2 01:46:11 2002
@@ -0,0 +1,79 @@
+.\" -*- nroff -*-
+.\" ----------------------------------------------------------------------
+.\" Copyright 2001 by Ardo van Rangelrooij.
+.\"
+.\" This is free software; see the GNU General Public Licence version 2
+.\" or later for copying conditions. There is NO warranty.
+.\" ----------------------------------------------------------------------
+.\"
+.\" ----------------------------------------------------------------------
+.TH UPDATE-PERL-SAX-PARSERS 8 "Dec 2001" "0.1" "Debian"
+.\"
+.\" ----------------------------------------------------------------------
+.SH NAME
+update-perl-sax-parsers \- update Perl SAX parser module info files
+.\"
+.\" ----------------------------------------------------------------------
+.SH SYNOPSIS
+.B update-perl-sax-parsers
+.RI [ options ]
+.B --add
+.I parser_module
+.PP
+.B update-perl-sax-parsers
+.RI [ options ]
+.B --remove
+.I parser_module
+.PP
+.B update-perl-sax-parsers
+.RI [ options ]
+.B --update
+.\"
+.\" ----------------------------------------------------------------------
+.SH DESCRIPTION
+.B update-perl-sax-parsers
+inserts, updates and removes individual Perl SAX parser module info
+files in the directory
+.I /etc/perl/XML/SAX/ParserDetails.d
+and the overall Perl SAX parser modules info file
+.IR /etc/perl/XML/SAX/ParserDetails.ini .
+.\"
+.\" ----------------------------------------------------------------------
+.SH OPTIONS
+.TP
+.B --add
+Adds a Perl SAX parser module info file to the directory
+.IR /etc/perl/XML/SAX/ParserDetails.d .
+.TP
+.B --remove
+Removes a Perl SAX parser module info file
+from the directory
+.IR /etc/perl/XML/SAX/ParserDetails.d .
+.TP
+.B --update
+updates the overall Perl SAX parser modules info file
+.IR /etc/perl/XML/SAX/ParserDetails.ini .
+.TP
+.B --quiet
+Prevents the usual diagnostic output.
+.TP
+.B --test
+Prevents the update of the individual Perl SAX parser module info file and
+the overall Perl SAX parser modules info file.
+.TP
+.B --version
+Displays the version information and exits.
+.TP
+.B --help
+Display the usage information and exits.
+.\"
+.\" ----------------------------------------------------------------------
+.SH COPYRIGHT
+Copyright 2001, Ardo van Rangelrooij.
+.PP
+This is free software; see the GNU General Public Licence version 2 or
+later for copying conditions. There is
+.I no
+warranty.
+.\"
+.\" ----------------------------------------------------------------------
--- NEW FILE: xml-sax-pm581.info ---
Package: xml-sax-pm581
Version: 0.12
Revision: 16ecc1
Replaces: xml-sax-pm (<= 0.12-16), xml-sax-pm560, xml-sax-pm580
Source: mirror:cpan:authors/id/M/MS/MSERGEANT/XML-SAX-%v.tar.gz
Source-MD5: bff58bd077a9693fc8cf32e2b95f571f
Type: perl 5.8.1
Depends: xml-namespacesupport-pm, file-temp-pm581 | perl581-core
BuildDepends: fink (>= 0.20.1-1), perl581-core
UpdatePOD: true
PatchScript: sed 's|@PREFIX@|%p|g' < %a/%n.patch | patch -p1
DocFiles: Changes MANIFEST README LICENSE
CompileScript: <<
perl5.8.1 Makefile.PL PREFIX=%p INSTALLPRIVLIB=%p/lib/perl5
INSTALLARCHLIB=%p/lib/perl5/darwin INSTALLSITELIB=%p/lib/perl5
INSTALLSITEARCH=%p/lib/perl5/darwin INSTALLMAN1DIR=%p/share/man/man1
INSTALLMAN3DIR=%p/share/man/man3 INSTALLSITEMAN1DIR=%p/share/man/man1
INSTALLSITEMAN3DIR=%p/share/man/man3 INSTALLSCRIPT=%p/sbin
make
make test
<<
InstallScript: <<
make install INSTALLPRIVLIB=%i/lib/perl5
INSTALLARCHLIB=%i/lib/perl5/darwin INSTALLSITELIB=%i/lib/perl5
INSTALLSITEARCH=%i/lib/perl5/darwin INSTALLMAN1DIR=%i/share/man/man1
INSTALLMAN3DIR=%i/share/man/man3 INSTALLSITEMAN1DIR=%i/share/man/man1
INSTALLSITEMAN3DIR=%i/share/man/man3 INSTALLSCRIPT=%i/sbin
ln -s %p/etc/perl/XML/SAX/ParserDetails.ini
%i/lib/perl5/XML/SAX/ParserDetails.ini
<<
PreInstScript: <<
if [ "$1" = install ]
then
install -d -m 755 %p/etc/perl/XML/SAX
install -d -m 755 %p/etc/perl/XML/SAX/ParserDetails.d
touch %p/etc/perl/XML/SAX/ParserDetails.ini
elif [ "$1" = upgrade ]
then
install -d -m 755 %p/etc/perl/XML
if [ -d %p/etc/xml/SAX ]
then
mv %p/etc/xml/SAX %p/etc/perl/XML
else
install -d -m 755 %p/etc/perl/XML/SAX
install -d -m 755 %p/etc/perl/XML/SAX/ParserDetails.d
touch %p/etc/perl/XML/SAX/ParserDetails.ini
fi
fi
<<
PostInstScript: <<
if [ "$1" = configure ]
then
update-perl-sax-parsers --add XML::SAX::PurePerl
update-perl-sax-parsers --update
fi
<<
PreRmScript: <<
if [ "$1" = remove ]
then
update-perl-sax-parsers --remove XML::SAX::PurePerl
update-perl-sax-parsers --update
fi
<<
PostRmScript: <<
if [ "$1" = purge ]
then
rm -f %p/etc/perl/XML/SAX/ParserDetails.ini
cd %p/etc/perl
rmdir XML/SAX/ParserDetails.d XML/SAX XML 2>/dev/null || :
fi
<<
Description: Perl Simple API for XML
DescDetail: <<
XML::SAX is a SAX parser access API for Perl. It includes classes and APIs
required for implementing SAX drivers, along with a factory class for
returning any SAX parser installed on the user's system.
<<
DescPackaging: <<
XML::SAX uses catalogs stored in %p/etc/perl/XML/SAX/ParserDetails.d to
managed the details of parsers installed on the local system. They are
managed via the update-perl-sax-parsers script. Each package that provides a
SAX parser should also call this script within Pre/PostInstScript.
This implementation was taken from the debian package of XML::SAX.
This revision is made by Todai Fink Team to fix a gnuism at PostRmScript:
rmdir --parents --ignore-fail-on-non-empty XML/SAX/ParserDetails.d
<<
License: Artistic
#Maintainer: Chris Leishman <[EMAIL PROTECTED]>
Maintainer: Todai Fink Team <[EMAIL PROTECTED]>
Homepage: http://search.cpan.org/dist/XML-SAX
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
