diff options
| author | Alexandr Ciornii <alexchorny@gmail.com> | 2006-07-18 22:46:36 -0700 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-07-19 14:59:24 +0000 |
| commit | c52248be1b93675f97446e26d9a2d2ce15151bcd (patch) | |
| tree | 249b41316139511af9fb922fac13542d37ebd011 /lib/Time | |
| parent | bc028b6b7f0f25fba45e10fa46e3fe91dbe9a76d (diff) | |
| download | perl-c52248be1b93675f97446e26d9a2d2ce15151bcd.tar.gz | |
[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
Diffstat (limited to 'lib/Time')
| -rw-r--r-- | lib/Time/gmtime.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/Time/gmtime.pm b/lib/Time/gmtime.pm index 4e1359b36d..eb5b371a00 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(); |