diff options
Diffstat (limited to 'compat')
-rw-r--r-- | compat/date.in | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compat/date.in b/compat/date.in index aaa2c6d..c67fe80 100644 --- a/compat/date.in +++ b/compat/date.in @@ -8,7 +8,7 @@ use strict; use POSIX qw(strftime); -use Getopt::Long; +use Getopt::Long qw(:config gnu_getopt prefix_pattern=(--|-)); use Date::Parse; my $spec = '%a %b %e %H:%M:%S %Z %Y'; @@ -41,8 +41,6 @@ sub parse_utc_secs($) { } } -Getopt::Long::Configure("gnu_getopt"); - GetOptions('rfc-822|R' => sub() { $spec = '%a, %d %b %Y %H:%M:%S %z' }, 'utc|universal|u' => \$utc, 'date|d=s' => sub() { $now = parse_utc_secs($_[1]) }, |