Apply patch 393791-sliceprint from Debian.

[enscript.git] / scripts / sliceprint.in

diff --git a/scripts/sliceprint.in b/scripts/sliceprint.in
index a276bd52f6d5e8d6825fa3d6f8c62ad6b89f4066..c542a93dd5a4c45e0bb5b6a62212662b3e647be1 100644 (file)
--- a/scripts/sliceprint.in
+++ b/scripts/sliceprint.in
@@ -8,31 +8,30 @@
 #
 
 #
-# This file is part of GNU enscript.
+# This file is part of GNU Enscript.
 #
-# This program is free software; you can redistribute it and/or modify
+# Enscript is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
 #
-# This program is distributed in the hope that it will be useful,
+# Enscript is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
 #
 # You should have received a copy of the GNU General Public License
-# along with this program; see the file COPYING.  If not, write to
-# the Free Software Foundation, 59 Temple Place - Suite 330,
-# Boston, MA 02111-1307, USA.
+# along with Enscript.  If not, see <http://www.gnu.org/licenses/>.
 #
 
 $enscript = "enscript";
+$ENV{LC_ALL} = "C"; # we parse enscript's output
 
 $program = $0;
 $program =~ s/.*\///g;
 
 sub usage {
-    warn "Usage: $program [ENSCRIPT_OPTION]... [FILE]...\n";
+    warn "Usage: $program [-oFILE] [ENSCRIPT_OPTION]... [FILE]...\n";
 }
 
 # Handle arguments.
@@ -67,14 +66,15 @@ $slice = 0;
 while (1) {
     $slice++;
     if (defined($output_file)) {
-       $cmd = "$enscript" . $args . " --slice=$slice -p"
+       $cmd = "$enscript " . $args . " --slice=$slice -p"
            . $output_file . "." . $slice . " " . $files;
     } else {
-       $cmd = "$enscript" . $args . " --slice=$slice" . $files;
+       $cmd = "$enscript " . $args . " --slice=$slice" . $files;
     }
     print "printing slice $slice...\n";
     $result = `$cmd 2>&1`;
-    if ($result !~ ".*lines were.*") {
+    print $result;
+    if ($result !~ ".*line.* were wrapped.*") {
        last;
     }
 }