blob: 177e3e8c1f1abac09957a98e71e88d568bac5edf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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";
|
