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

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

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

revision 1.12 by joko, Sun Dec 22 14:15:02 2002 UTC revision 1.13 by joko, Mon Dec 23 04:25:13 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.13  2002/12/23 04:25:13  joko
7    #  + sub bool2status
8    #
9  #  Revision 1.12  2002/12/22 14:15:02  joko  #  Revision 1.12  2002/12/22 14:15:02  joko
10  #  + sub mkObject  #  + sub mkObject
11  #  #
# Line 66  our @EXPORT_OK = qw( Line 69  our @EXPORT_OK = qw(
69      getNewPerlObjectByPkgName      getNewPerlObjectByPkgName
70      run_cmd run_cmds      run_cmd run_cmds
71      mkObject      mkObject
72        bool2status
73  );  );
74    
75  use Data::Dumper;  use Data::Dumper;
# Line 270  sub run_cmds { Line 274  sub run_cmds {
274    }    }
275  }  }
276    
277    sub bool2status {
278      my $bool = shift;
279      return ($bool ? 'ok' : 'failed');
280    }
281    
282  1;  1;
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed