projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Avoid $` $& $' in libraries
[p5sagit/p5-mst-13.2.git]
/
lib
/
ctime.pl
diff --git
a/lib/ctime.pl
b/lib/ctime.pl
index
2d5ee65
..
14e122a
100644
(file)
--- a/
lib/ctime.pl
+++ b/
lib/ctime.pl
@@
-44,7
+44,7
@@
sub ctime {
}
$TZ .= ' ' unless $TZ eq '';
- $year += ($year < 70) ? 2000 : 1900;
+ $year += 1900;
sprintf("%s %s %2d %2d:%02d:%02d %s%4d\n",
$DoW[$wday], $MoY[$mon], $mday, $hour, $min, $sec, $TZ, $year);
}