summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLMedia.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-07 20:59:35 +0000
committerNorbert Preining <preining@logic.at>2008-05-07 20:59:35 +0000
commit0ea9e057c69dca5113fd8dc42f923a0f254e69c9 (patch)
treeaf7fbc497c5bc859b2590ef44a292317c1b49060 /Master/tlpkg/TeXLive/TLMedia.pm
parent9e20959633583ecc01c1a6db5a8152637274ce0c (diff)
return undef when media cannot be loaded
git-svn-id: svn://tug.org/texlive/trunk@7923 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLMedia.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLMedia.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm
index 939a2dc8af1..94d331af14a 100644
--- a/Master/tlpkg/TeXLive/TLMedia.pm
+++ b/Master/tlpkg/TeXLive/TLMedia.pm
@@ -29,7 +29,9 @@ sub new
} elsif (-d "$location/$DiskArchive") {
$media = 'CD';
} else {
- die ("Cannot find the correct media for $location, please specify!");
+ # we cannot find the right type, return undefined, that should
+ # make people notice
+ return;
}
}
tllog($::LOG_DEBUG, "Loading $location/$InfraLocation/$DatabaseName ...\n");