fix for w32 papersize-setting kpsewhich problem, thanks Staszek

git-svn-id: svn://tug.org/texlive/trunk@11571 c570f23f-e606-0410-a88d-b1316a301751

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);