diff options
author | Matteo Pasotti <matteo@mageia.org> | 2013-01-07 19:01:53 +0000 |
---|---|---|
committer | Matteo Pasotti <matteo@mageia.org> | 2013-01-07 19:01:53 +0000 |
commit | e822b14bab0e0d759c4647c725f94d362e984dbb (patch) | |
tree | d16d331869da0630089261809dd6c738a4c1a4be /AdminPanel/Shared.pm | |
parent | b64480f0522d5221a75acbef91f99886242b8590 (diff) | |
download | colin-keep-e822b14bab0e0d759c4647c725f94d362e984dbb.tar colin-keep-e822b14bab0e0d759c4647c725f94d362e984dbb.tar.gz colin-keep-e822b14bab0e0d759c4647c725f94d362e984dbb.tar.bz2 colin-keep-e822b14bab0e0d759c4647c725f94d362e984dbb.tar.xz colin-keep-e822b14bab0e0d759c4647c725f94d362e984dbb.zip |
added trim subroutine
Diffstat (limited to 'AdminPanel/Shared.pm')
-rw-r--r-- | AdminPanel/Shared.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/AdminPanel/Shared.pm b/AdminPanel/Shared.pm index 503a078..dce5061 100644 --- a/AdminPanel/Shared.pm +++ b/AdminPanel/Shared.pm @@ -29,7 +29,8 @@ our @EXPORT = qw(warningMsgBox msgBox infoMsgBox ask_YesOrNo - ask_OkCancel); + ask_OkCancel + trim); sub warningMsgBox { my ($st) = @_; @@ -141,6 +142,13 @@ sub ask_YesOrNo { return $retVal; } +sub trim { + my ($st) = shift; + $st =~s /^\s+//g; + $st =~s /\s+$//g; + return $st; +} + 1; =head1 NAME |