diff options
-rw-r--r-- | compat/date.in | 4 | ||||
-rw-r--r-- | quilt.changes | 9 | ||||
-rwxr-xr-x | test/run | 5 |
3 files changed, 14 insertions, 4 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]) }, diff --git a/quilt.changes b/quilt.changes index 52b6eab..1274a72 100644 --- a/quilt.changes +++ b/quilt.changes @@ -1,4 +1,13 @@ ------------------------------------------------------------------- +Wed Feb 1 16:03:03 CET 2006 - agruen@suse.de + +- 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. + +------------------------------------------------------------------- Wed Feb 1 13:50:22 CET 2006 - agruen@suse.de - quilt/mail.in: Documentation fix. @@ -12,7 +12,7 @@ use strict; use FileHandle; use Getopt::Std; -use POSIX qw(isatty setuid); +use POSIX qw(isatty setuid getcwd); use vars qw($opt_l $opt_v); no warnings qw(taint); @@ -202,6 +202,7 @@ sub exec_test($$) { if (!chdir $prog->[1]) { return [ "chdir: $prog->[1]: $!\n" ]; } + $ENV{PWD} = getcwd; return []; } elsif ($prog->[0] eq "su") { return su($prog->[1]); @@ -209,6 +210,8 @@ sub exec_test($$) { return sg($prog->[1]); } elsif ($prog->[0] eq "export") { my ($name, $value) = split /=/, $prog->[1]; + # FIXME: need to evaluate $value, so that things like this will work: + # export dir=$PWD/dir $ENV{$name} = $value; return []; } elsif ($prog->[0] eq "unset") { |