diff options
author | Norbert Preining <preining@logic.at> | 2008-05-07 20:59:35 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-07 20:59:35 +0000 |
commit | 0ea9e057c69dca5113fd8dc42f923a0f254e69c9 (patch) | |
tree | af7fbc497c5bc859b2590ef44a292317c1b49060 /Master/tlpkg | |
parent | 9e20959633583ecc01c1a6db5a8152637274ce0c (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')
-rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 4 |
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"); |