From 81a055e8de611631d607424adce2e6c5583e193e Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Mon, 13 Dec 2010 14:19:51 +0000 Subject: correct fixmacps perl script git-svn-id: svn://tug.org/texlive/trunk@20722 c570f23f-e606-0410-a88d-b1316a301751 --- .../source/utils/psutils/psutils-1.17-PATCHES/ChangeLog | 6 ++++++ .../utils/psutils/psutils-1.17-PATCHES/TL-Changes | 3 +++ .../psutils/psutils-1.17-PATCHES/patch-07-fixmacps | 17 +++++++++++++++++ Build/source/utils/psutils/psutils-1.17/fixmacps.pl | 6 ++++-- 4 files changed, 30 insertions(+), 2 deletions(-) create mode 100644 Build/source/utils/psutils/psutils-1.17-PATCHES/patch-07-fixmacps (limited to 'Build') diff --git a/Build/source/utils/psutils/psutils-1.17-PATCHES/ChangeLog b/Build/source/utils/psutils/psutils-1.17-PATCHES/ChangeLog index 272c6fd3381..b8ea380e2d5 100644 --- a/Build/source/utils/psutils/psutils-1.17-PATCHES/ChangeLog +++ b/Build/source/utils/psutils/psutils-1.17-PATCHES/ChangeLog @@ -1,3 +1,9 @@ +2010-12-13 Peter Breitenlohner + + * patch-07-fixmacps (new): Adapt to new kpsewhich semantics and + texmf layout. + Change basename => dirname and add 'use File::Basename'. + 2010-12-10 Peter Breitenlohner Patches applied to psutils-1.17 as obtained from CTAN. diff --git a/Build/source/utils/psutils/psutils-1.17-PATCHES/TL-Changes b/Build/source/utils/psutils/psutils-1.17-PATCHES/TL-Changes index 91f4c1c1016..b4af08a325f 100644 --- a/Build/source/utils/psutils/psutils-1.17-PATCHES/TL-Changes +++ b/Build/source/utils/psutils/psutils-1.17-PATCHES/TL-Changes @@ -1,3 +1,6 @@ Changes applied to the psutils-1.17 tree as obtained from: http://mirror.ctan.org/support/psutils/psutils-p17.tar.gz +Rename: + patchlev.h -> patchlev.h.in + diff --git a/Build/source/utils/psutils/psutils-1.17-PATCHES/patch-07-fixmacps b/Build/source/utils/psutils/psutils-1.17-PATCHES/patch-07-fixmacps new file mode 100644 index 00000000000..177e3e8c1f1 --- /dev/null +++ b/Build/source/utils/psutils/psutils-1.17-PATCHES/patch-07-fixmacps @@ -0,0 +1,17 @@ +diff -ur psutils-1.17.orig/fixmacps.pl psutils-1.17/fixmacps.pl +--- psutils-1.17.orig/fixmacps.pl 2006-01-17 22:16:42.000000000 +0100 ++++ psutils-1.17/fixmacps.pl 2010-12-13 15:04:50.973928757 +0100 +@@ -4,9 +4,11 @@ + # Copyright (C) Angus J. C. Duggan 1991-1995 + # See file LICENSE for details. + ++use File::Basename; ++ + $line = 0; # keep line count +-$predir = `kpsewhich -progname=psutils md71_0.ps`; +-$dir=`basename $predir`; ++$predir = `kpsewhich -progname=dvips -format="other text files" md71_0.ps`; ++$dir=`dirname $predir`; + $prefix = "md"; + $default = "md71_0.ps"; + diff --git a/Build/source/utils/psutils/psutils-1.17/fixmacps.pl b/Build/source/utils/psutils/psutils-1.17/fixmacps.pl index 9dcdb8517ce..5ed32467f38 100644 --- a/Build/source/utils/psutils/psutils-1.17/fixmacps.pl +++ b/Build/source/utils/psutils/psutils-1.17/fixmacps.pl @@ -4,9 +4,11 @@ # Copyright (C) Angus J. C. Duggan 1991-1995 # See file LICENSE for details. +use File::Basename; + $line = 0; # keep line count -$predir = `kpsewhich -progname=psutils md71_0.ps`; -$dir=`basename $predir`; +$predir = `kpsewhich -progname=dvips -format="other text files" md71_0.ps`; +$dir=`dirname $predir`; $prefix = "md"; $default = "md71_0.ps"; -- cgit v1.2.3