This is an automated email from the git hooks/post-receive script. wdg pushed a commit to branch master in repository libfont-ttf-scripts-perl.
commit 3bb2b71d57dbb15c8df26359666b9a2abf9567c1 Author: Daniel Glassey <w...@debian.org> Date: Mon Nov 9 10:49:38 2015 +0000 patch for script-uses-perl4-libs-without-dep --- debian/changelog | 3 +- debian/patches/examples.patch | 130 ++++++++++++++++++++++++++++++++++++++++++ debian/patches/series | 1 + 3 files changed, 132 insertions(+), 2 deletions(-) diff --git a/debian/changelog b/debian/changelog index 1f7b653..b8177c7 100644 --- a/debian/changelog +++ b/debian/changelog @@ -2,8 +2,7 @@ libfont-ttf-scripts-perl (1.05-1) UNRELEASED; urgency=low TODO: - quite a few lintian messages: spelling-error-in-manpage (patch needed), - script-uses-perl4-libs-without-dep (patch or override, since these are - examples), manpage-has-bad-whatis-entry (patch) + manpage-has-bad-whatis-entry (patch) - I hope the files installed into /usr/bin don't clash with anything, they all sound a bit generic ... and, hm, maybe the package should be named font-ttf-scripts (if the scripts are more important than the modules) ... diff --git a/debian/patches/examples.patch b/debian/patches/examples.patch new file mode 100644 index 0000000..af2378b --- /dev/null +++ b/debian/patches/examples.patch @@ -0,0 +1,130 @@ +Description: use Getopt::Std instead of getopts.pl +Author: Daniel Glassey <w...@debian.org> + +--- a/Examples/makemono.pl ++++ b/Examples/makemono.pl +@@ -6,8 +6,8 @@ + # MJPH 1.0.0 25-MAR-1998 Original + + require 'ttfmod.pl'; +-require 'getopts.pl'; +-&Getopts("d:z"); ++use Getopt::Std; ++&getopts("d:z"); + + if ((defined $opt_d && !defined $ARGV[0]) || (!defined $opt_d && !defined $ARGV[1])) + { +--- a/Examples/stripcmap.pl ++++ b/Examples/stripcmap.pl +@@ -1,8 +1,8 @@ + #! /usr/bin/perl + use Font::TTF::Font; +-require 'getopts.pl'; ++use Getopt::Std; + +-Getopts("umws"); ++getopts("umws"); + + unless (defined $ARGV[1]) + { +--- a/Examples/ttfextracttable.pl ++++ b/Examples/ttfextracttable.pl +@@ -2,8 +2,8 @@ + # 1.1 RMH 06-Feb-00 Extract a raw TTF table to a file + + use Font::TTF::Font; +-require 'getopts.pl'; +-Getopts('at:'); ++use Getopt::Std; ++getopts('at:'); + + unless (defined $ARGV[0]) + { +@@ -36,4 +36,4 @@ + print $f->{$opt_t}->{' dat'}; + + __END__ +-:endofperl +\ No newline at end of file ++:endofperl +--- a/Examples/ttfreplacetable.pl ++++ b/Examples/ttfreplacetable.pl +@@ -2,8 +2,8 @@ + # 1.0 RMH 14-Feb-00 Insert a raw TTF table into a font file + + use Font::TTF::Font; +-require 'getopts.pl'; +-Getopts('d:t:'); ++use Getopt::Std; ++getopts('d:t:'); + + ($inFontFile, $inDataFile, $outFontFile) = @ARGV; + +@@ -48,4 +48,4 @@ + + + __END__ +-:endofperl +\ No newline at end of file ++:endofperl +--- a/Examples/zerohyph.pl ++++ b/Examples/zerohyph.pl +@@ -1,8 +1,8 @@ + #! /usr/bin/perl +-require 'getopts.pl'; ++use Getopt::Std; + use Font::TTF::Font; + +-Getopts('u:s:'); ++getopts('u:s:'); + + unless (defined $ARGV[1]) + { +--- a/Examples/addpclt.pl ++++ b/Examples/addpclt.pl +@@ -6,8 +6,8 @@ + # 1.0.0 MJPH 18-MAR-1998 Original + + require 'ttfmod.pl'; +-require 'getopts.pl'; +-do Getopts("d:z"); ++use Getopt::Std; ++do getopts("d:z"); + + $[ = 0; + if ((defined $opt_d && !defined $ARGV[0]) || (!defined $opt_d && !defined $ARGV[1])) +--- a/Examples/ttfname-old.pl ++++ b/Examples/ttfname-old.pl +@@ -8,8 +8,8 @@ + # 1.1 MJPH 20-MAR-1998 Add -l, -s + + require 'ttfmod.pl'; +-require 'getopts.pl'; +-do Getopts("f:l:n:qs:t:"); ++use Getopt::Std; ++do getopts("f:l:n:qs:t:"); + + + if (!defined $ARGV[1] || !defined $opt_n) +--- a/Examples/ttfwidth.pl ++++ b/Examples/ttfwidth.pl +@@ -6,8 +6,8 @@ + # in either SF or CSV format. + # 1.2.0 25-MAR-1998 Tidy up to package with the rest + +-require 'getopts.pl'; +-do Getopts("qsuzp:"); ++use Getopt::Std; ++getopts("qsuzp:"); + + if (!defined $ARGV[0]) + { +--- /dev/null ++++ b/Examples/README.examples +@@ -0,0 +1,6 @@ ++ttfmod.pl ++--------- ++ ++makemono.pl, addpclt.pl and ttfname-old.pl require ttfmod.pl. You can find a ++copy of this in /usr/share/doc/libfont-ttf-perl/examples/ttfmod.pl.gz as long ++as you have the package libfont-ttf-perl installed. diff --git a/debian/patches/series b/debian/patches/series new file mode 100644 index 0000000..f511ab0 --- /dev/null +++ b/debian/patches/series @@ -0,0 +1 @@ +examples.patch -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libfont-ttf-scripts-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits