Upgrade to PathTools 3.25

[p5sagit/p5-mst-13.2.git] / lib / Time / gmtime.pm

diff --git a/lib/Time/gmtime.pm b/lib/Time/gmtime.pm
index a6b95f3..eb5b371 100644 (file)
--- a/lib/Time/gmtime.pm
+++ b/lib/Time/gmtime.pm
@@ -1,8 +1,9 @@
 package Time::gmtime;
 use strict;
+use 5.006_001;
+
 use Time::tm;
 
-use 5.6.1;
 our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
 BEGIN { 
     use Exporter   ();
@@ -14,7 +15,7 @@ BEGIN {
                        $tm_isdst
                    );
     %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
-    $VERSION     = 1.01;
+    $VERSION     = 1.03;
 }
 use vars      @EXPORT_OK;
 
@@ -44,11 +45,12 @@ Time::gmtime - by-name interface to Perl's built-in gmtime() function
  use Time::gmtime;
  $gm = gmtime();
  printf "The day in Greenwich is %s\n", 
-    (qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ gm->wday() ];
+    (qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ $gm->wday() ];
 
- use Time::gmtime w(:FIELDS;
+ use Time::gmtime qw(:FIELDS);
+ gmtime();
  printf "The day in Greenwich is %s\n", 
-    (qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ gm_wday() ];
+    (qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ $tm_wday ];
 
  $now = gmctime();