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 | 79 |
1 files changed, 79 insertions, 0 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 new file mode 100644 index 00000000000..e595d1e3348 --- /dev/null +++ b/Build/source/utils/psutils/psutils-1.17-PATCHES/patch-02-PERL @@ -0,0 +1,79 @@ +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 2006-01-17 22:16:42.000000000 +0100 +@@ -5,7 +5,8 @@ + # See file LICENSE for details. + + $line = 0; # keep line count +-$dir = "@INCLUDE@"; ++$predir = `kpsewhich -progname=psutils md71_0.ps`; ++$dir=`basename $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 +@@ -28,7 +28,7 @@ + local($comment, @res) = split(/\s+/); + local($type) = defined($type{$comment}) ? $type{$comment} : shift(@res); + local($name) = &filename(@res); +- local($inc) = "@INCLUDE@"; # system include directory ++ local($inc) = ""; # 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"); + |