diff options
| author | Andreas Gruenbacher <agruen@suse.de> | 2006-02-01 15:05:55 +0000 |
|---|---|---|
| committer | Andreas Gruenbacher <agruen@suse.de> | 2006-02-01 15:05:55 +0000 |
| commit | bc60c51e6ab24f0484e74095a8cea006e465f1ef (patch) | |
| tree | 4a95b7cad7d1cfbd5752b84cee4023472d9a922f /compat/date.in | |
| parent | db95d969ffb384eaa02c35ed477d7fc5f54c25ad (diff) | |
| download | quilt-bc60c51e6ab24f0484e74095a8cea006e465f1ef.tar.gz | |
- compat/date.in: Fix GetOptions problem with options starting
with `+'.
- test/run: Adjust $ENV{PWD} in cd command; add FIXME comment in
export command: in commands like `export foo=$var/bar', $var is
not evaluated.
Diffstat (limited to 'compat/date.in')
| -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]) }, |