diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-08-12 12:41:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-08-12 12:41:11 +0000 |
| commit | 7d7d7acc3090a0bc740e676180547e6fd1f082be (patch) | |
| tree | 3e7b9fdf4226d5ea7470294a8b6b83d5db2147b4 | |
| parent | f8fa8660f722e12a6d787a99c16394dd8033a97f (diff) | |
| download | perl-MDK-Common-7d7d7acc3090a0bc740e676180547e6fd1f082be.tar perl-MDK-Common-7d7d7acc3090a0bc740e676180547e6fd1f082be.tar.gz perl-MDK-Common-7d7d7acc3090a0bc740e676180547e6fd1f082be.tar.bz2 perl-MDK-Common-7d7d7acc3090a0bc740e676180547e6fd1f082be.tar.xz perl-MDK-Common-7d7d7acc3090a0bc740e676180547e6fd1f082be.zip | |
simplify chomp_ as suggested by Guillaume Rousse
| -rw-r--r-- | MDK/Common/Various.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/Various.pm b/MDK/Common/Various.pm index 548aed3..80d77ff 100644 --- a/MDK/Common/Various.pm +++ b/MDK/Common/Various.pm @@ -113,7 +113,7 @@ sub bool2text { $_[0] ? "true" : "false" } sub bool2yesno { $_[0] ? "yes" : "no" } sub text2bool { my $t = lc($_[0]); $t eq "true" || $t eq "yes" ? 1 : 0 } -sub chomp_ { my @l = map { my $l = $_; chomp $l; $l } @_; wantarray() ? @l : $l[0] } +sub chomp_ { my @l = @_; chomp @l; wantarray() ? @l : $l[0] } sub backtrace() { my $s; |