Changeset 29669 for main/trunk/package-kits/linux
- Timestamp:
- 2015-01-07T12:20:21+13:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/package-kits/linux/files/servlet.pl
r29668 r29669 212 212 ], 213 213 debug => [ 214 'Dumps the current state to stdout',214 'Dumps the current internal state to stdout', 215 215 sub { 216 216 print Dumper $hash; … … 218 218 ], 219 219 count => [ 220 'Returns the number of servlets in the internal state',220 'Returns the number of servlets in the current internal state', 221 221 sub { 222 222 my $count = 0; … … 247 247 } 248 248 }, 249 ], 250 remove => [ 251 'Removes a servlet from the current internal state', 252 sub { 253 my $name = shift @ARGV; 254 if (defined $hash->{servlet}) { 255 my $servlets = $hash->{servlet}; 256 if (ref $servlets eq 'ARRAY') { 257 my @array = grep { $_->{'servlet-name'} ne $name } @$servlets; 258 $hash->{servlet} = \@array; 259 } elsif ($servlets->{'servlet-name'} eq $name) { 260 delete $hash->{servlet}; 261 } 262 } 263 }, 264 1, 249 265 ], 250 266 );
Note:
See TracChangeset
for help on using the changeset viewer.