diff options
-rw-r--r-- | Master/texmf/scripts/texlive/papersize-setting.pl | 12 |
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); |