diff options
| -rwxr-xr-x | Master/install-tl.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl index 07ef77233e5..3cef3f61489 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -97,11 +97,11 @@ GetOptions("media=s" => \$opt_media, "diskarchive=s" => \$::diskarchive, "url=s" => \$opt_url ) or die("No pod doc till now!"); -if ("$opt_media" eq "CD") { +if ("$opt_media" =~ m/^CD/i) { $::_media_ = "CD"; -} elsif ("$opt_media" eq "NET") { +} elsif ("$opt_media" =~ m/^NET/i) { $::_media_ = "NET"; -} elsif ("$opt_media" eq "DVD") { +} elsif ("$opt_media" =~ m/^DVD/i) { $::_media_ = "DVD"; } |