From: Alexandr Ciornii <alexchorny@gmail.com>
Date: Wed, 19 Jul 2006 05:46:36 +0000 (-0700)
Subject: [perl #39876] Time::gmtime 1.02 examples patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c52248be1b93675f97446e26d9a2d2ce15151bcd;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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();