--- nfo/perl/libs/org/netfrag/shortcuts.pm	2003/01/20 21:19:27	1.2
+++ nfo/perl/libs/org/netfrag/shortcuts.pm	2003/01/22 17:58:48	1.3
@@ -1,7 +1,10 @@
 ## ---------------------------------------------------------------------------
-##  $Id: shortcuts.pm,v 1.2 2003/01/20 21:19:27 joko Exp $
+##  $Id: shortcuts.pm,v 1.3 2003/01/22 17:58:48 root Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: shortcuts.pm,v $
+##  Revision 1.3  2003/01/22 17:58:48  root
+##  sub get_chomped
+##
 ##  Revision 1.2  2003/01/20 21:19:27  joko
 ##  + updated 'sub now': knows about option 'fs' now
 ##
@@ -21,6 +24,7 @@
 our @EXPORT_OK = qw( 
   now today
   run_cmd run_cmds
+  get_chomped
 );
 
 
@@ -64,5 +68,10 @@
   }
 }
 
+sub get_chomped {
+  my $str = shift;
+  chomp($str);
+  return $str;
+}
 
 1;