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

[Steve Peters]

Change 28600 by [EMAIL PROTECTED] on 2006/07/19 14:59:24

        Subject: [perl #39876] Time::gmtime 1.02 examples patch
        From: Alexandr Ciornii (via RT) <[EMAIL PROTECTED]>
        Date: Wed, 19 Jul 2006 05:46:36 -0700
        Message-ID: <[EMAIL PROTECTED]>
        
        Pod fixes for Time::gmtime.pm

Affected files ...

... //depot/perl/lib/Time/gmtime.pm#11 edit

Differences ...

==== //depot/perl/lib/Time/gmtime.pm#11 (text) ====
Index: perl/lib/Time/gmtime.pm
--- perl/lib/Time/gmtime.pm#10~12113~   2001-09-21 10:08:24.000000000 -0700
+++ perl/lib/Time/gmtime.pm     2006-07-19 07:59:24.000000000 -0700
@@ -15,7 +15,7 @@
                        $tm_isdst
                    );
     %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
-    $VERSION     = 1.02;
+    $VERSION     = 1.03;
 }
 use vars      @EXPORT_OK;
 
@@ -45,11 +45,12 @@
  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();
 
End of Patch.