r596: * dh_scrollkeeper: fixed some overenthusiastic quoting. Closes: #201810

[debhelper.git] / dh_scrollkeeper

diff --git a/dh_scrollkeeper b/dh_scrollkeeper
index fb459cb343501aafe5db32c3f91d6e4eb79d1e06..234653226d56fe619f43169d441e45be0e67501a 100755 (executable)
--- a/dh_scrollkeeper
+++ b/dh_scrollkeeper
@@ -71,7 +71,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
                        # of the content. First, the OMF files
                        foreach my $file (@omf_files) {
                                chomp $file;
-                               doit("perl", "-i", "-pe", "'s,http://scrollkeeper.sourceforge.net/dtds/scrollkeeper-omf-1.0/scrollkeeper-omf.dtd,/usr/share/xml/scrollkeeper/dtds/scrollkeeper-omf.dtd, if \$. < 10'", $file);
+                               doit("perl", "-i", "-pe", 's,http://scrollkeeper.sourceforge.net/dtds/scrollkeeper-omf-1.0/scrollkeeper-omf.dtd,/usr/share/xml/scrollkeeper/dtds/scrollkeeper-omf.dtd, if $. < 10', $file);
                        }
                        # I could be cunning and parse the OMF for the DocBook
                        # files. That is far too much effort. Find to the
@@ -80,7 +80,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
                        foreach my $xmlpath (@xml_paths) {
                                foreach my $file (`find $tmp/$xmlpath -type f -name \*.xml -printf '%p\n'`) {
                                        chomp $file;
-                                       doit("perl", "-i", "-pe", "'s,http://www.oasis-open.org/docbook/xml/([^/]+)/docbookx.dtd,/usr/share/sgml/docbook/dtd/xml/\\1/docbookx.dtd, if \$. < 10'", $file);
+                                       doit("perl", "-i", "-pe", 's,http://www.oasis-open.org/docbook/xml/([^/]+)/docbookx.dtd,/usr/share/sgml/docbook/dtd/xml/\\1/docbookx.dtd, if $. < 10', $file);
                                }
                        }