r13028 - in /branches/upstream/libtime-fake-perl/current: Changes META.yml lib/Time/Fake.pm test.pl

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Fri Jan 18 23:10:13 2008
New Revision: 13028

URL: http://svn.debian.org/wsvn/?sc=1&rev=13028
Log:
[svn-upgrade] Integrating new upstream version, libtime-fake-perl (0.11)

Modified:
    branches/upstream/libtime-fake-perl/current/Changes
    branches/upstream/libtime-fake-perl/current/META.yml
    branches/upstream/libtime-fake-perl/current/lib/Time/Fake.pm
    branches/upstream/libtime-fake-perl/current/test.pl

Modified: branches/upstream/libtime-fake-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libtime-fake-perl/current/Changes?rev=13028&op=diff
==============================================================================
--- branches/upstream/libtime-fake-perl/current/Changes (original)
+++ branches/upstream/libtime-fake-perl/current/Changes Fri Jan 18 23:10:13 2008
@@ -1,4 +1,7 @@
 Revision history for Perl extension Time::Fake:
+
+0.11	Thu Jan 17, 2008
+	- bugfix for {local,gm}time with argument (thanks Ash Berlin)
 
 0.10	Fri Jan 04, 2008
 	- Initial release.

Modified: branches/upstream/libtime-fake-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libtime-fake-perl/current/META.yml?rev=13028&op=diff
==============================================================================
--- branches/upstream/libtime-fake-perl/current/META.yml (original)
+++ branches/upstream/libtime-fake-perl/current/META.yml Fri Jan 18 23:10:13 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Time-Fake
-version:      0.10
+version:      0.11
 version_from: lib/Time/Fake.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libtime-fake-perl/current/lib/Time/Fake.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtime-fake-perl/current/lib/Time/Fake.pm?rev=13028&op=diff
==============================================================================
--- branches/upstream/libtime-fake-perl/current/lib/Time/Fake.pm (original)
+++ branches/upstream/libtime-fake-perl/current/lib/Time/Fake.pm Fri Jan 18 23:10:13 2008
@@ -2,7 +2,7 @@
 use Carp;
 use strict;
 use vars '$VERSION';
-$VERSION = "0.10";
+$VERSION = "0.11";
 
 #####################
 
@@ -11,12 +11,12 @@
 *CORE::GLOBAL::time = sub() { CORE::time() + $OFFSET };
 
 *CORE::GLOBAL::localtime = sub(;$) {
-   @_ ? CORE::localtime(@_)
+   @_ ? CORE::localtime($_[0])
       : CORE::localtime(CORE::time() + $OFFSET);
 };
 
 *CORE::GLOBAL::gmtime = sub(;$) {
-   @_ ? CORE::gmtime(@_)
+   @_ ? CORE::gmtime($_[0])
       : CORE::gmtime(CORE::time() + $OFFSET);
 };
 

Modified: branches/upstream/libtime-fake-perl/current/test.pl
URL: http://svn.debian.org/wsvn/branches/upstream/libtime-fake-perl/current/test.pl?rev=13028&op=diff
==============================================================================
--- branches/upstream/libtime-fake-perl/current/test.pl (original)
+++ branches/upstream/libtime-fake-perl/current/test.pl Fri Jan 18 23:10:13 2008
@@ -1,5 +1,5 @@
 use Time::Fake;
-use Test::More 'no_plan';
+use Test::More tests => 7;
 use strict;
 
 my $mon = (localtime)[4];
@@ -24,4 +24,10 @@
     $epoch,
     "epoch as argument" );
 
+is( scalar localtime(time),
+    scalar localtime(),
+    "localtime with arg gives same thing" );
 
+is( scalar gmtime(time),
+    scalar gmtime(),
+    "gmtime with arg gives same thing" );