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

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

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

revision 1.1 by joko, Sun Feb 9 04:49:45 2003 UTC revision 1.2 by joko, Tue Feb 11 05:14:28 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.2  2003/02/11 05:14:28  joko
6    ##  + refactored code from libp.pm
7    ##
8  ##  Revision 1.1  2003/02/09 04:49:45  joko  ##  Revision 1.1  2003/02/09 04:49:45  joko
9  ##  + shortcuts now refactored to this file  ##  + shortcuts now refactored to this file
10  ##  ##
# Line 20  our @EXPORT_OK = qw( Line 23  our @EXPORT_OK = qw(
23    now today    now today
24    run_cmd run_cmds    run_cmd run_cmds
25    get_chomped    get_chomped
26      bool2status
27  );  );
28    
29    
# Line 69  sub get_chomped { Line 73  sub get_chomped {
73    return $str;    return $str;
74  }  }
75    
76    sub bool2status {
77      my $bool = shift;
78      return ($bool ? 'ok' : 'failed');
79    }
80    
81  1;  1;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed