summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm
index fac1304e675..d41cb4b10bb 100644
--- a/Master/tlpkg/TeXLive/TLWinGoo.pm
+++ b/Master/tlpkg/TeXLive/TLWinGoo.pm
@@ -841,7 +841,8 @@ sub add_desktop_shortcut {
$shc->Save($shfile);
# update batchfile for uninstalling shortcuts
- open UNSHORT, ">>$texdir/tlpkg/installer/unshort.bat";
+ open UNSHORT, ">>$texdir/tlpkg/installer/unshort.bat" ||
+ die "Cannot open $texdir/tlpkg/installer/unshort.bat for appending: $!";
$shfile =~ s!/!\\!g;
print UNSHORT 'del "'.$shfile."\" 2>nul\n";
close UNSHORT;
@@ -898,7 +899,8 @@ sub init_unshortbat {
$menupath =~ s!/!\\!g;
# batchfile for uninstalling shortcuts
- open UNSHORT, ">$texdirw/tlpkg/installer/unshort.bat";
+ open UNSHORT, ">$texdirw/tlpkg/installer/unshort.bat" ||
+ die "Cannot create $texdirw/tlpkg/installer/unshort.bat: $!";
print UNSHORT 'rmdir /s /q "'.$menupath."\\TeX Live 2008\" 2>nul\n";
close UNSHORT;
}