diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-07-24 22:58:36 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-07-24 22:58:36 +0000 |
| commit | 72e28b71c097e4f2b17b031416790090cefb8263 (patch) | |
| tree | 7d76b1106d53506122086b57a1cfda99af714fa0 /MDK/Common/Various.pm | |
| parent | 5bef71a0c86613f95e154d08b5f8f0cc23226e27 (diff) | |
| download | perl-MDK-Common-72e28b71c097e4f2b17b031416790090cefb8263.tar perl-MDK-Common-72e28b71c097e4f2b17b031416790090cefb8263.tar.gz perl-MDK-Common-72e28b71c097e4f2b17b031416790090cefb8263.tar.bz2 perl-MDK-Common-72e28b71c097e4f2b17b031416790090cefb8263.tar.xz perl-MDK-Common-72e28b71c097e4f2b17b031416790090cefb8263.zip | |
everything should work now
Diffstat (limited to 'MDK/Common/Various.pm')
| -rw-r--r-- | MDK/Common/Various.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/MDK/Common/Various.pm b/MDK/Common/Various.pm index b012343..93fbb80 100644 --- a/MDK/Common/Various.pm +++ b/MDK/Common/Various.pm @@ -2,7 +2,7 @@ package MDK::Common::Various; use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK); @ISA = qw(Exporter); -@EXPORT_OK = qw(first second top bool to_int to_float bool2text bool2yesno text2bool chomp_ backtrace); +@EXPORT_OK = qw(first second top to_bool to_int to_float bool2text bool2yesno text2bool chomp_ backtrace); %EXPORT_TAGS = (all => [ @EXPORT_OK ]); @@ -10,7 +10,7 @@ sub first { $_[0] } sub second { $_[1] } sub top { $_[-1] } -sub bool { $_[0] ? 1 : 0 } +sub to_bool { $_[0] ? 1 : 0 } sub to_int { $_[0] =~ /(\d*)/; $1 } sub to_float { $_[0] =~ /(\d*(\.\d*)?)/; $1 } sub bool2text { $_[0] ? "true" : "false" } |