From 80911f2bcbc7d1854dc7b0fe75c74e1b62503ae9 Mon Sep 17 00:00:00 2001 From: joey Date: Fri, 18 Jul 2003 07:45:27 +0000 Subject: r596: * dh_scrollkeeper: fixed some overenthusiastic quoting. Closes: #201810 --- dh_scrollkeeper | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'dh_scrollkeeper') diff --git a/dh_scrollkeeper b/dh_scrollkeeper index fb459cb3..23465322 100755 --- 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); } } -- cgit v1.2.3