diff options
-rw-r--r-- | adduser/adduser.perl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/adduser/adduser.perl b/adduser/adduser.perl index b6e5728..256e27c 100644 --- a/adduser/adduser.perl +++ b/adduser/adduser.perl @@ -24,7 +24,7 @@ # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # -# $Id: adduser.perl,v 1.40 1998/06/07 18:38:32 wosch Exp $ +# $Id: adduser.perl,v 1.41 1998/08/17 18:50:29 wosch Exp $ # read variables @@ -895,6 +895,7 @@ sub adduser_log { return 1 if $logfile eq "no"; local($sec, $min, $hour, $mday, $mon, $year) = localtime; + $year += 1900; $mon++; foreach $e ('sec', 'min', 'hour', 'mday', 'mon', 'year') { |