[libsgmls-perl] 06/10: sgmlspl.pl - Revert changes to upstream source and create patch

[Daniel Lintott]

This is an automated email from the git hooks/post-receive script.

dlintott-guest pushed a commit to branch master
in repository libsgmls-perl.

commit 305248c8277caf44911f3de5bafab6a18f062d93
Author: Daniel Lintott <daniel at serverb.co.uk>
Date:   Thu Apr 10 21:05:29 2014 +0100

    sgmlspl.pl - Revert changes to upstream source and create patch
---
 debian/patches/series                              |  1 +
 debian/patches/sgmlspl-specs_location_change.patch | 19 +++++++++++++++++++
 sgmlspl.pl                                         |  2 +-
 3 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/debian/patches/series b/debian/patches/series
index 94d6176..a41687c 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,4 @@
 Create_Makefile.PL.patch
+sgmlspl-specs_location_change.patch
 No_clean_doc.patch
 Add_desc_to_pod_name.patch
diff --git a/debian/patches/sgmlspl-specs_location_change.patch b/debian/patches/sgmlspl-specs_location_change.patch
new file mode 100644
index 0000000..b137a21
--- /dev/null
+++ b/debian/patches/sgmlspl-specs_location_change.patch
@@ -0,0 +1,19 @@
+Description: Update sgmlspl.pl
+ Update sgmlspl.pl to reflect change of location of spec-files
+Author: Ardo van Rangelrooij <ardo at debian.org>
+Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=58443
+Forwarded: not-needed
+Last-Update: 2014-04-10
+diff --git a/sgmlspl.pl b/sgmlspl.pl
+index c91a6cb..ce79562 100755
+--- a/sgmlspl.pl
++++ b/sgmlspl.pl
+@@ -238,7 +238,7 @@ sub main::sgml {
+ package main;
+ 
+ $ARGV = shift;
+-unless ($ARGV eq '' || do $ARGV) {
++unless ($ARGV eq '' || do 'sgmlspl-specs/' . $ARGV || do $ARGV) {
+     if (!-e $ARGV) {
+ 	die "FATAL: $ARGV does not exist.\n";
+     } elsif (!-r $ARGV) {
diff --git a/sgmlspl.pl b/sgmlspl.pl
index ce79562..c91a6cb 100755
--- a/sgmlspl.pl
+++ b/sgmlspl.pl
@@ -238,7 +238,7 @@ sub main::sgml {
 package main;
 
 $ARGV = shift;
-unless ($ARGV eq '' || do 'sgmlspl-specs/' . $ARGV || do $ARGV) {
+unless ($ARGV eq '' || do $ARGV) {
     if (!-e $ARGV) {
 	die "FATAL: $ARGV does not exist.\n";
     } elsif (!-r $ARGV) {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libsgmls-perl.git