diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-05-24 15:37:40 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-05-24 15:37:40 +0000 |
| commit | 89c3975acc8149f49838932bd37bf67df50b258b (patch) | |
| tree | 89c43e998279e7c773d89fdc13028e6d45b4c286 /lib/feature.pm | |
| parent | 078adea48b953fdf5a6f7d170d6c4c35dcab75f3 (diff) | |
| download | perl-89c3975acc8149f49838932bd37bf67df50b258b.tar.gz | |
Adjustment to the test for importing feature bundles,
found by Hugo
p4raw-id: //depot/perl@31267
Diffstat (limited to 'lib/feature.pm')
| -rw-r--r-- | lib/feature.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/feature.pm b/lib/feature.pm index f33ce2d42b..7ffae727fd 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -151,7 +151,8 @@ sub import { } while (@_) { my $name = shift(@_); - if (substr($name, 0, 1) eq ":" and (my $v = substr($name, 1))) { + if (substr($name, 0, 1) eq ":") { + my $v = substr($name, 1); if (!exists $feature_bundle{$v}) { unknown_feature_bundle($v); } @@ -176,7 +177,8 @@ sub unimport { while (@_) { my $name = shift; - if (substr($name, 0, 1) eq ":" and (my $v = substr($name, 1))) { + if (substr($name, 0, 1) eq ":") { + my $v = substr($name, 1); if (!exists $feature_bundle{$v}) { unknown_feature_bundle($v); } |