Changeset 29674 for main/trunk/package-kits/scripts/gs-servlet.pl
- Timestamp:
- 2015-01-09T11:57:42+13:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/package-kits/scripts/gs-servlet.pl
r29673 r29674 53 53 # Append the new data to the current data 54 54 for my $key (keys %$new) { 55 if ($key eq '.attr' and defined$hash->{'.attr'}) {55 if ($key eq '.attr' and exists $hash->{'.attr'}) { 56 56 for my $attr ($new->{'.attr'}) { 57 57 $hash->{'.attr'}->{$attr} = $new->{'.attr'}->{$attr}; 58 58 } 59 } elsif ( defined$hash->{$key}) {59 } elsif (exists $hash->{$key}) { 60 60 if (ref $hash->{$key} ne 'ARRAY') { 61 61 $hash->{$key} = [ $hash->{$key} ]; … … 94 94 sub { 95 95 my $count = 0; 96 if ( defined$hash->{servlet}) {96 if (exists $hash->{servlet}) { 97 97 $count = 1; 98 98 my $servlets = $hash->{servlet}; … … 107 107 'Lists the servlets in the current internal state', 108 108 sub { 109 if ( defined$hash->{servlet}) {109 if (exists $hash->{servlet}) { 110 110 my $servlets = $hash->{servlet}; 111 111 if (ref $servlets eq 'ARRAY') { … … 125 125 sub { 126 126 my $name = shift @ARGV; 127 if ( defined$hash->{servlet}) {127 if (exists $hash->{servlet}) { 128 128 my $servlets = $hash->{servlet}; 129 129 if (ref $servlets eq 'ARRAY') { … … 156 156 }; 157 157 } 158 if ( defined$hash->{servlet}) {158 if (exists $hash->{servlet}) { 159 159 unless (ref $hash->{servlet} eq 'ARRAY') { 160 160 $hash->{servlet} = [ $hash->{servlet} ]; … … 180 180 $argc --; 181 181 } elsif ($varargs) { 182 } elsif ( defined$commands{$cmd}) {182 } elsif (exists $commands{$cmd}) { 183 183 # get the argument count of a valid command 184 184 $argc = @{$commands{$cmd}}[2];
Note:
See TracChangeset
for help on using the changeset viewer.