perl warnings

This commit is contained in:
Wolfram Schneider 2019-05-25 16:56:43 +00:00
parent 218faee06a
commit f9ae8d4089
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/head/; revision=53059

View file

@ -1844,8 +1844,8 @@ ETX
# pickup a default machine type
else {
exists $arch{$l}->{'default'} ? $arch{$l}->{'default'} : 'default';
}
#exists $arch{$l}->{'default'} ? $arch{$l}->{'default'} : 'default';
}
foreach (@arch) {
my $selected = $_ eq $a ? ' selected="selected"' : "";