Parent Directory | Revision Log | Patch
revision 29 by dpavlin, Sat May 8 20:34:26 2004 UTC | revision 30 by dpavlin, Sun May 9 00:09:32 2004 UTC | |
---|---|---|
# | Line 31 our $VERSION = '1.00'; | Line 31 our $VERSION = '1.00'; |
31 | ||
32 | my $folder; # placeholder for folders | my $folder; # placeholder for folders |
33 | ||
34 | my $debug = 2; | my $debug = 1; |
35 | ||
36 | sub new { | sub new { |
37 | my $class = shift; | my $class = shift; |
# | Line 116 sub fmtdate { | Line 116 sub fmtdate { |
116 | push @out, sprintf($f, $v); | push @out, sprintf($f, $v); |
117 | } | } |
118 | ||
119 | print STDERR "fmtdate: ",join('|',@out),"\n"; | print STDERR "fmtdate: ",join('|',@out),"\n" if ($debug == 2); |
120 | ||
121 | return (wantarray ? @out : join("-",@out)); | return (wantarray ? @out : join("-",@out)); |
122 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |