--- eperl-2.2.14.debian/eg/demo.func.phtml      Mon Nov 17 16:00:47 1997
+++ eperl-2.2.14/eg/demo.func.phtml     Fri Jan  7 14:49:05 2000
@@ -22,8 +22,8 @@
                 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' );
     my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = 
         localtime($time);
-    my ($str) = sprintf("%s %s %2d %02d:%02d:%02d 19%s%s",
-         $dow[$wday], $moy[$mon], $mday, $hour, $min, $sec, $year, 
+    my ($str) = sprintf("%s %s %2d %02d:%02d:%02d %s%s",
+         $dow[$wday], $moy[$mon], $mday, $hour, $min, $sec, $year + 1900, 
          $isdst ?  " DST" : "");
     return $str;
 }
--- eperl-2.2.14.debian/eperl_sys.c     Fri Jan  7 14:46:58 2000
+++ eperl-2.2.14/eperl_sys.c    Fri Jan  7 14:47:35 2000
@@ -239,8 +239,8 @@
     char timestr[128];
 
     tm = localtime(t);
-    sprintf(timestr, "%02d-%02d-19%02d %02d:%02d",
-                      tm->tm_mday, tm->tm_mon+1, tm->tm_year,
+    sprintf(timestr, "%02d-%02d-%04d %02d:%02d",
+                      tm->tm_mday, tm->tm_mon+1, tm->tm_year + 1900,
                       tm->tm_hour, tm->tm_min);
     return strdup(timestr);
 }