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 |
# |
# |
59 |
getNewPerlObjectByPkgName |
getNewPerlObjectByPkgName |
60 |
cmd |
cmd |
61 |
run_cmds |
run_cmds |
62 |
|
today |
63 |
); |
); |
64 |
|
|
65 |
use Data::Dumper; |
use Data::Dumper; |
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; |