diff options
Diffstat (limited to 'Build/source/utils/psutils/psutils-1.17-PATCHES/patch-02-PERL')
-rw-r--r-- | Build/source/utils/psutils/psutils-1.17-PATCHES/patch-02-PERL | 93 |
1 files changed, 0 insertions, 93 deletions
diff --git a/Build/source/utils/psutils/psutils-1.17-PATCHES/patch-02-PERL b/Build/source/utils/psutils/psutils-1.17-PATCHES/patch-02-PERL deleted file mode 100644 index 2887e44e7eb..00000000000 --- a/Build/source/utils/psutils/psutils-1.17-PATCHES/patch-02-PERL +++ /dev/null @@ -1,93 +0,0 @@ -diff -ur psutils-1.17.orig/fixmacps.man psutils-1.17/fixmacps.man ---- psutils-1.17.orig/fixmacps.man 1997-03-11 23:52:54.000000000 +0100 -+++ psutils-1.17/fixmacps.man 2006-01-17 22:16:42.000000000 +0100 -@@ -16,7 +16,7 @@ - .B psutils - package. - .SH FILES --@INCLUDE@/md68_0.ps, @INCLUDE@/md71_0.ps - sanitised versions of the md -+md68_0.ps, md71_0.ps - sanitised versions of the md - prologue. - .SH AUTHOR - Copyright (C) Angus J. C. Duggan 1991-1995 -diff -ur psutils-1.17.orig/fixmacps.pl psutils-1.17/fixmacps.pl ---- psutils-1.17.orig/fixmacps.pl 1997-03-11 23:52:54.000000000 +0100 -+++ psutils-1.17/fixmacps.pl 2010-12-13 15:04:50.000000000 +0100 -@@ -4,8 +4,11 @@ - # Copyright (C) Angus J. C. Duggan 1991-1995 - # See file LICENSE for details. - -+use File::Basename; -+ - $line = 0; # keep line count --$dir = "@INCLUDE@"; -+$predir = `kpsewhich -progname=dvips -format="other text files" md71_0.ps`; -+$dir=`dirname $predir`; - $prefix = "md"; - $default = "md71_0.ps"; - -diff -ur psutils-1.17.orig/includeres.man psutils-1.17/includeres.man ---- psutils-1.17.orig/includeres.man 1997-03-11 23:52:57.000000000 +0100 -+++ psutils-1.17/includeres.man 2006-01-17 22:16:42.000000000 +0100 -@@ -26,8 +26,6 @@ - or - .I pstops - safely. --.SH FILES --@INCLUDE@ - system resource directory. - .SH AUTHOR - Copyright (C) Angus J. C. Duggan 1991-1995 - .SH "SEE ALSO" -diff -ur psutils-1.17.orig/includeres.pl psutils-1.17/includeres.pl ---- psutils-1.17.orig/includeres.pl 1997-03-11 23:52:58.000000000 +0100 -+++ psutils-1.17/includeres.pl 2006-01-17 22:16:42.000000000 +0100 -@@ -4,6 +4,11 @@ - # Copyright (C) Angus J. C. Duggan 1991-1995 - # See file LICENSE for details. - -+use File::Basename; -+ -+$predir = `kpsewhich -progname=dvips -format="other text files" md71_0.ps`; -+$inc=`dirname $predir`; -+ - $prog = ($0 =~ s=.*/==); - - %extn = ("font", ".pfa", "file", ".ps", "procset", ".ps", # resource extns -@@ -28,7 +33,6 @@ - local($comment, @res) = split(/\s+/); - local($type) = defined($type{$comment}) ? $type{$comment} : shift(@res); - local($name) = &filename(@res); -- local($inc) = "@INCLUDE@"; # system include directory - if (open(RES, $name) || open(RES, "$name$extn{$type}") || - open(RES, "$inc/$name") || open(RES, "$inc/$name$extn{$type}")) { - while (<RES>) { -diff -ur psutils-1.17.orig/maketext psutils-1.17/maketext ---- psutils-1.17.orig/maketext 1997-03-11 23:52:59.000000000 +0100 -+++ psutils-1.17/maketext 2006-01-17 22:16:42.000000000 +0100 -@@ -1,7 +1,4 @@ --eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' -- & eval 'exec perl -S $0 $argv:q' -- if 0; -- -+#!/usr/bin/env perl - # maketext: perl filter to substitute names in scripts and man pages. - - %change = (); # names -> substitutions -@@ -15,14 +12,16 @@ - - $os = "" ; - --%perlstart = ("UNIX", "\#!PERL\neval 'exec perl -S \$0 \"\$\@\"'\n\tif \$running_under_some_shell;\n", -+%perlstart = ("UNIX", "\#!PERL", - "DOS", "\@rem = '-*- Perl -*-\n\@echo off\nPERL -S %0.cmd %1 %2 %3 %4 %5 %6 %7 %8 %9\ngoto endofperl\n';\n", - "WINNT", "\@rem = '-*- Perl -*-\n\@echo off\nPERL -S %0.cmd %1 %2 %3 %4 %5 %6 %7 %8 %9\ngoto endofperl\n';\n", -+ "Win32", "\@rem = '-*- Perl -*-\n\@echo off\nPERL -S %0.cmd %1 %2 %3 %4 %5 %6 %7 %8 %9\ngoto endofperl\n';\n", - "OS2", "extproc PERL -x\n\#! PERL\n", - "", "PSUTILS MAKEFILE CONFIGURATION ERROR") ; - %perlend = ("UNIX", "", - "DOS", "__END__\n:endofperl\n", - "WINNT", "__END__\n:endofperl\n", -+ "Win32", "__END__\n:endofperl\n", - "OS2", "\# End of Script", - "", "PSUTILS MAKEFILE CONFIGURATION ERROR"); - |