From 9a8d0bd31ab1ebd12d7a2bd823ffc9e5d9021cf6 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 2 Jul 2011 20:30:14 +0000 Subject: (quotify_path_with_spaces): always "quote" on Unix, as we were doing before. git-svn-id: svn://tug.org/texlive/trunk@23180 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 04e5a6189b7..7d18d86c4ea 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3180,15 +3180,17 @@ sub process_logging_options { =pod -This function takes a single argument I and adds -an additional C<"> around it if I contains any spaces or -(on Windows only) some other special characters. +This function takes a single argument I and returns it with +C<"> chars surrounding it on Unix. On Windows, the C<"> chars are only +added if I a few special characters, since unconditional quoting +leads to errors there. In all cases, any C<"> chars in I itself +are (erroneously) eradicated. =cut sub quotify_path_with_spaces { my $p = shift; - my $m = win32() ? '[+=^&();,!%\s]' : ' '; + my $m = win32() ? '[+=^&();,!%\s]' : '.'; if ( $p =~ m/$m/ ) { $p =~ s/"//g; # remove any existing double quotes $p = "\"$p\""; -- cgit v1.2.3