[libfont-ttf-scripts-perl] 02/08: patch for script-uses-perl4-libs-without-dep

[Daniel Glassey]

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 <wdg at 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 <wdg at 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