diff options
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 084080959..4b88b85ed 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -29,7 +29,7 @@ sub fold_left(&@) { } sub _ { my $s = shift @_; sprintf translate($s), @_ } -#delete $main::{'_'}; +#-delete $main::{'_'}; sub __ { $_[0] } sub min { fold_left { $a < $b ? $a : $b } @_ } sub max { fold_left { $a > $b ? $a : $b } @_ } @@ -85,7 +85,7 @@ sub map_index(&@) { @l; } -#pseudo-array-hash :) +#- pseudo-array-hash :) sub map_tab_hash(&$@) { my ($f, $fields, @tab_hash) = @_; my %hash; @@ -135,7 +135,7 @@ sub add_f4before_leaving { } -# ! the functions are not called in the order wanted, in case of multiple before_leaving :( +#- ! the functions are not called in the order wanted, in case of multiple before_leaving :( sub before_leaving(&) { my ($f) = @_; my $b = bless {}, 'common::before_leaving'; |