develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34729 - trunk/t/op

From:
chromatic
Date:
December 31, 2008 17:29
Subject:
[svn:parrot] r34729 - trunk/t/op
Message ID:
20090101012933.06EFCCB9FA@x12.develooper.com
Author: chromatic
Date: Wed Dec 31 17:29:32 2008
New Revision: 34729

Modified:
   trunk/t/op/time.t

Log:
[t] Fixed year (and copyright date) in test which fails at the end of a year
(reported by Geraud CONTINSOUZAS and Mark Glines).

Modified: trunk/t/op/time.t
==============================================================================
--- trunk/t/op/time.t	(original)
+++ trunk/t/op/time.t	Wed Dec 31 17:29:32 2008
@@ -1,5 +1,5 @@
 #!perl
-# Copyright (C) 2001-2007, The Perl Foundation.
+# Copyright (C) 2001-2009, The Perl Foundation.
 # $Id$
 
 use strict;
@@ -14,7 +14,7 @@
 
 =head1 SYNOPSIS
 
-        % prove t/op/time.t
+    % prove t/op/time.t
 
 =head1 DESCRIPTION
 
@@ -93,7 +93,7 @@
 OUT
 
 my $year;
-( undef, undef, undef, undef, undef, $year ) = gmtime(time);
+( undef, undef, undef, undef, undef, $year ) = localtime();
 $year += 1900;
 
 # don't run this test 1 tick before the year changes #'



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About