/[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.9 by joko, Thu Dec 5 13:54:00 2002 UTC revision 1.10 by joko, Thu Dec 19 01:05:35 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.10  2002/12/19 01:05:35  joko
7    #  + sub today
8    #
9  #  Revision 1.9  2002/12/05 13:54:00  joko  #  Revision 1.9  2002/12/05 13:54:00  joko
10  #  + fix: let 'deep_copy' print its message out (instead of die)  #  + fix: let 'deep_copy' print its message out (instead of die)
11  #  #
# Line 56  our @EXPORT_OK = qw( Line 59  our @EXPORT_OK = qw(
59      getNewPerlObjectByPkgName      getNewPerlObjectByPkgName
60      cmd      cmd
61      run_cmds      run_cmds
62        today
63  );  );
64    
65  use Data::Dumper;  use Data::Dumper;
# Line 202  sub now { Line 206  sub now {
206    return strftime("%Y-%m-%d %H:%M:%S", localtime);    return strftime("%Y-%m-%d %H:%M:%S", localtime);
207  }  }
208    
209    sub today {
210      return strftime("%Y-%m-%d", localtime);
211    }
212    
213  # ACK's go to ...  # ACK's go to ...
214  sub deep_copy {  sub deep_copy {
215    my $this = shift;    my $this = shift;
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed