summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-12-09 23:19:14 +0000
committerNorbert Preining <preining@logic.at>2008-12-09 23:19:14 +0000
commitf4433a09b9da3d27dbd7cd32717907614f5083d7 (patch)
tree5f912fdf6340e5ea8b34c3efbbee392e46422c81 /Master
parent36cd4ada4fd8de1b3cbba73aea4a6f67788a622e (diff)
fix for w32 papersize-setting kpsewhich problem, thanks Staszek
git-svn-id: svn://tug.org/texlive/trunk@11571 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/texmf/scripts/texlive/papersize-setting.pl12
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/texmf/scripts/texlive/papersize-setting.pl b/Master/texmf/scripts/texlive/papersize-setting.pl
index fe70d483689..0cbd01731ab 100644
--- a/Master/texmf/scripts/texlive/papersize-setting.pl
+++ b/Master/texmf/scripts/texlive/papersize-setting.pl
@@ -276,7 +276,7 @@ sub paper_dvips {
$outcomp || ($outcomp = $default_paper_config_path_component{"dvips"});
my $outfile = "$outtree/$outcomp";
my $newpaper = shift;
- my $configps = `kpsewhich --progname=dvips --format='dvips config' config.ps`;
+ my $configps = `kpsewhich --progname=dvips --format="dvips config" config.ps`;
chomp($configps);
debug("file used for dvips: $configps\n");
@@ -389,7 +389,7 @@ sub paper_context {
chomp($inp);
if (!$inp) {
# we didn't get anything, so retry with .rme
- $inp = `kpsewhich --progname=tex --format='other text files' cont-sys.rme`;
+ $inp = `kpsewhich --progname=tex --format="other text files" cont-sys.rme`;
chomp($inp);
}
my @bla = keys %pdftex_papersize;
@@ -425,7 +425,7 @@ sub paper_xdvi {
$outcomp || ($outcomp = $default_paper_config_path_component{"xdvi"});
my $outfile = "$outtree/$outcomp";
my $newpaper = shift;
- my $xdvi = `kpsewhich --progname=xdvi --format='other text files' XDvi`;
+ my $xdvi = `kpsewhich --progname=xdvi --format="other text files" XDvi`;
chomp($xdvi);
my @bla = keys %xdvi_papersize;
paper_do_simple($xdvi, "xdvi", '^\*paper: ', '^\*paper:\s+(\w+)\s*$',
@@ -469,7 +469,7 @@ sub do_dvipdfm_and_x {
sub paper_dvipdfm {
my $outtree = shift;
my $newpaper = shift;
- my $inp = `kpsewhich --progname=dvipdfm --format='other text files' config`;
+ my $inp = `kpsewhich --progname=dvipdfm --format="other text files" config`;
chomp($inp);
my @bla = keys %dvipdfm_papersize;
do_dvipdfm_and_x($inp, "dvipdfm", $outtree, \@bla, $newpaper);
@@ -479,7 +479,7 @@ $papersetting_subs{"dvipdfm"} = \&paper_dvipdfm;
sub paper_dvipdfmx {
my $outtree = shift;
my $newpaper = shift;
- my $inp = `kpsewhich --progname=dvipdfmx --format='other text files' dvipdfmx.cfg`;
+ my $inp = `kpsewhich --progname=dvipdfmx --format="other text files" dvipdfmx.cfg`;
chomp($inp);
my @bla = keys %dvipdfm_papersize;
do_dvipdfm_and_x($inp, "dvipdfmx", $outtree, \@bla, $newpaper);
@@ -513,7 +513,7 @@ sub paper_do_simple {
debug("file used for $prog: $inp\n");
- open(FOO, "<$inp") or die("cannot open file: $!");
+ open(FOO, "<$inp") or die("cannot open file $inp: $!");
my @lines = <FOO>;
close(FOO);