/[mws]/trunk/MWS.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/MWS.pm

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

revision 27 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  }  }
Legend:
Removed from v.27  
changed lines
  Added in v.30
  ViewVC Help
Powered by ViewVC 1.1.26