[Bps-public-commit] r14772 - Prophet/branches/creator/lib/Prophet

[sartak at bestpractical.com]

Author: sartak
Date: Mon Aug  4 19:07:03 2008
New Revision: 14772

Modified:
   Prophet/branches/creator/lib/Prophet/ChangeSet.pm

Log:
Oh yeah, the year and month of gmtime is silly

Modified: Prophet/branches/creator/lib/Prophet/ChangeSet.pm
==============================================================================
--- Prophet/branches/creator/lib/Prophet/ChangeSet.pm	(original)
+++ Prophet/branches/creator/lib/Prophet/ChangeSet.pm	Mon Aug  4 19:07:03 2008
@@ -14,6 +14,8 @@
     isa     => 'Str',
     default => sub {
         my ($sec, $min, $hour, $day, $month, $year) = gmtime;
+        $year += 1900;
+        $month--;
         return sprintf '%04d-%02d-%02d %02d:%02d:%02d',
             $year, $month, $day,
             $hour, $min, $sec;