Update of /cvsroot/fink/dists/10.3/unstable/main/finkinfo/libs/perlmods In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1448
Added Files: xml-sax-pm.info xml-sax-pm.patch Removed Files: xml-sax-pm581.info xml-sax-pm581.patch Log Message: Backport from 10.4T --- NEW FILE: xml-sax-pm.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. +.\" +.\" ---------------------------------------------------------------------- --- xml-sax-pm581.patch DELETED --- --- xml-sax-pm581.info DELETED --- --- NEW FILE: xml-sax-pm.info --- Info2: << Package: xml-sax-pm%type_pkg[perl] Version: 0.13 Revision: 1 Replaces: xml-sax-pm (<= 0.12-16), %{Ni}560, %{Ni}580, %{Ni}581, %{Ni}584, %{Ni}586 Source: mirror:cpan:authors/id/M/MS/MSERGEANT/XML-SAX-%v.tar.gz Source-MD5: e8b1ce0a954888bcd3aa2ed8621774ef Type: perl (5.8.1 5.8.4 5.8.6) Depends: perl%type_pkg[perl]-core, xml-namespacesupport-pm, file-temp-pm%type_pkg[perl] BuildDepends: fink (>= 0.20.6-1) UpdatePOD: true PatchScript: sed 's|@PREFIX@|%p|g' < %a/%{Ni}.patch | patch -p1 DocFiles: Changes MANIFEST README LICENSE InstallScript: << %{default_script} # ln -s %p/etc/perl/XML/SAX/ParserDetails.ini %i/lib/perl5/XML/SAX/ParserDetails.ini # mv %i/lib/perl5/XML %i/lib/perl5/%type_raw[perl] mv %i/share/man %i/lib/perl5/%type_raw[perl] << 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 -p XML/SAX/ParserDetails.d || true 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. Previous maintainer: Chris Leishman <[EMAIL PROTECTED]> Variant package (Info2): by Koen van der Drift << License: Artistic Maintainer: None <fink-devel@lists.sourceforge.net> Homepage: http://search.cpan.org/dist/XML-SAX << ------------------------------------------------------- This SF.net email is sponsored by: Splunk Inc. Do you grep through log files for problems? Stop! Download the new AJAX search engine that makes searching your log files as easy as surfing the web. DOWNLOAD SPLUNK! http://ads.osdn.com/?ad_id=7637&alloc_id=16865&op=click _______________________________________________ Fink-commits mailing list Fink-commits@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/fink-commits