/[cvs]/nfo/perl/libs/org/netfrag/shortcuts.pm
ViewVC logotype

Diff of /nfo/perl/libs/org/netfrag/shortcuts.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Mon Jan 20 21:19:27 2003 UTC revision 1.3 by root, Wed Jan 22 17:58:48 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.3  2003/01/22 17:58:48  root
6    ##  sub get_chomped
7    ##
8  ##  Revision 1.2  2003/01/20 21:19:27  joko  ##  Revision 1.2  2003/01/20 21:19:27  joko
9  ##  + updated 'sub now': knows about option 'fs' now  ##  + updated 'sub now': knows about option 'fs' now
10  ##  ##
# Line 21  our @ISA = qw( Exporter ); Line 24  our @ISA = qw( Exporter );
24  our @EXPORT_OK = qw(  our @EXPORT_OK = qw(
25    now today    now today
26    run_cmd run_cmds    run_cmd run_cmds
27      get_chomped
28  );  );
29    
30    
# Line 64  sub run_cmds { Line 68  sub run_cmds {
68    }    }
69  }  }
70    
71    sub get_chomped {
72      my $str = shift;
73      chomp($str);
74      return $str;
75    }
76    
77  1;  1;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed