diff options
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 6 |
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; } |