author | Heiko Schlittermann (ZARAFA.ctq.de) hs@schlittermann.de |
Thu, 28 Apr 2011 12:48:05 +0200 | |
changeset 53 | 1e29d8bd4ae2 |
parent 52 | 72c18cbde521 |
child 54 | 628fe317b2c1 |
bin/ftbackup | file | annotate | diff | comparison | revisions |
--- a/bin/ftbackup Thu Apr 28 11:26:03 2011 +0200 +++ b/bin/ftbackup Thu Apr 28 12:48:05 2011 +0200 @@ -61,9 +61,14 @@ KEEP => 2, ); +END { + say STDERR "*** $ME STOP: " . localtime if not -t STDERR; +} MAIN: { + say STDERR "*** $ME START: " . localtime if not -t STDERR; + Getopt::Long::Configure("bundling"); GetOptions( "l|level=i" => \$opt_level,