summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-07-05 16:50:36 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-07-05 16:50:36 +0000
commitb7efa0d4f4b4ecf5e8eb51d5aded4b7c4df58dd6 (patch)
tree7a0d2569aee4d232dcd6f404ec6bbc29c650d8f1 /Master/tlpkg/TeXLive
parent5209134cd9d89ac7808e5651bf530c736f2d7449 (diff)
Adjustments to path display functions.
git-svn-id: svn://tug.org/texlive/trunk@19247 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm26
1 files changed, 26 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 525ee61430c..95f9fd3268a 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -89,6 +89,8 @@ C<TeXLive::TLUtils> -- utilities used in the TeX Live infrastructure
TeXLive::TLUtils::merge_into(\%to, \%from);
TeXLive::TLUtils::texdir_check($texdir);
TeXLive::TLUtils::conv_to_w32_path($path);
+ TeXLive::TLUtils::native_slashify($internal_path);
+ TeXLive::TLUtils::forward_slashify($path_from_user);
TeXLive::TLUtils::give_ctan_mirror();
TeXLive::TLUtils::give_ctan_mirror_base();
TeXLive::TLUtils::tlmd5($path);
@@ -139,6 +141,9 @@ BEGIN {
&member
&quotewords
&conv_to_w32_path
+ &native_slashify
+ &forward_slashify
+ &conv_to_w32_path
&untar
&merge_into
&give_ctan_mirror
@@ -3075,6 +3080,27 @@ sub conv_to_w32_path {
return($p);
}
+=pod
+
+The next two functions are meant for user input/output in installer menus.
+They help making the windows user happy by turning slashes into backslashes
+before displaying a path, and our code happy by turning backslashes into forwars
+slashes after reading a path. They both are no-ops on Unix.
+
+=cut
+
+sub native_slashify {
+ my ($r) = @_;
+ $r =~ s!/!\\!g if win32();
+ return $r;
+}
+
+sub forward_slashify {
+ my ($r) = @_;
+ $r =~ s!\\!/!g if win32();
+ return $r;
+}
+
=item C<setup_persistent_downloads()>
Set up to use persistent connections using LWP/TLDownload.