r13030 - in /trunk/libtime-fake-perl: Changes META.yml debian/changelog lib/Time/Fake.pm test.pl

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

Author: gregoa-guest
Date: Fri Jan 18 23:13:26 2008
New Revision: 13030

URL: http://svn.debian.org/wsvn/?sc=1&rev=13030
Log:
New upstream release.

Modified:
    trunk/libtime-fake-perl/Changes
    trunk/libtime-fake-perl/META.yml
    trunk/libtime-fake-perl/debian/changelog
    trunk/libtime-fake-perl/lib/Time/Fake.pm
    trunk/libtime-fake-perl/test.pl

Modified: trunk/libtime-fake-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libtime-fake-perl/Changes?rev=13030&op=diff
==============================================================================
--- trunk/libtime-fake-perl/Changes (original)
+++ trunk/libtime-fake-perl/Changes Fri Jan 18 23:13:26 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: trunk/libtime-fake-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libtime-fake-perl/META.yml?rev=13030&op=diff
==============================================================================
--- trunk/libtime-fake-perl/META.yml (original)
+++ trunk/libtime-fake-perl/META.yml Fri Jan 18 23:13:26 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: trunk/libtime-fake-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libtime-fake-perl/debian/changelog?rev=13030&op=diff
==============================================================================
--- trunk/libtime-fake-perl/debian/changelog (original)
+++ trunk/libtime-fake-perl/debian/changelog Fri Jan 18 23:13:26 2008
@@ -1,3 +1,9 @@
+libtime-fake-perl (0.11-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Sat, 19 Jan 2008 00:12:32 +0100
+
 libtime-fake-perl (0.10-1) unstable; urgency=low
 
   [ Alejandro Garrido Mota ]

Modified: trunk/libtime-fake-perl/lib/Time/Fake.pm
URL: http://svn.debian.org/wsvn/trunk/libtime-fake-perl/lib/Time/Fake.pm?rev=13030&op=diff
==============================================================================
--- trunk/libtime-fake-perl/lib/Time/Fake.pm (original)
+++ trunk/libtime-fake-perl/lib/Time/Fake.pm Fri Jan 18 23:13:26 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: trunk/libtime-fake-perl/test.pl
URL: http://svn.debian.org/wsvn/trunk/libtime-fake-perl/test.pl?rev=13030&op=diff
==============================================================================
--- trunk/libtime-fake-perl/test.pl (original)
+++ trunk/libtime-fake-perl/test.pl Fri Jan 18 23:13:26 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" );