[perl #39876] Time::gmtime 1.02 examples patch

From: Alexandr Ciornii (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-25412-1153313196-897.39876-75-0@perl.org>

Pod fixes for Time::gmtime.pm

p4raw-id: //depot/perl@28600

diff --git a/lib/Time/gmtime.pm b/lib/Time/gmtime.pm
index 4e1359b..eb5b371 100644 (file)
--- a/lib/Time/gmtime.pm
+++ b/lib/Time/gmtime.pm
@@ -15,7 +15,7 @@ BEGIN {
                        $tm_isdst
                    );
     %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
-    $VERSION     = 1.02;
+    $VERSION     = 1.03;
 }
 use vars      @EXPORT_OK;
 
@@ -45,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();