summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-08-01 09:59:00 +0000
committerNorbert Preining <preining@logic.at>2008-08-01 09:59:00 +0000
commit12d1d2189358571f6dad4c52b604ae438b8d250e (patch)
treef06c598553fea17cebc8c5cfbead76e80824cd72 /Master/tlpkg/TeXLive/TLWinGoo.pm
parent4620a8397c0e31ef27df5471d8a9c25efa9a14f2 (diff)
TLWinGoo: catch open errors with die
git-svn-id: svn://tug.org/texlive/trunk@9975 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-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;
}