diff options
| author |   Yaroslav Tykhiy <ytykhiy@gmail.com> | 2002-01-02 15:35:33 +0000 |
|---|---|---|
| committer | Yaroslav Tykhiy <ytykhiy@gmail.com> | 2002-01-02 15:35:33 +0000 |
| commit | a38fd82e99c02be3412745842f603c05c223ddef (patch) | |
| tree | 2c229f541a630bab842b1330c6116cd238a1504e | |
| parent | 427847099c1dc8e0f460ac4075204141f2d88a78 (diff) | |
| download | pw-darwin-a38fd82e99c02be3412745842f603c05c223ddef.tar.gz pw-darwin-a38fd82e99c02be3412745842f603c05c223ddef.tar.zst pw-darwin-a38fd82e99c02be3412745842f603c05c223ddef.zip | |
Parse atq(1) output correctly under various (but not all perhaps)
locale settings: allow any date and time separator characters.
| -rw-r--r-- | adduser/rmuser.perl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/adduser/rmuser.perl b/adduser/rmuser.perl index 7e0f90a..aeb9988 100644 --- a/adduser/rmuser.perl +++ b/adduser/rmuser.perl @@ -496,7 +496,7 @@ sub invoke_atq { while(defined($_ = <ATQ>)) { chomp; - if (/^\d\d:\d\d:\d\d\s+\d\d\/\d\d\/\d\d\s+(\S+)\s+\S+\s+(\d+)$/) { + if (/^\d\d.\d\d.\d\d\s+\d\d.\d\d.\d\d\s+(\S+)\s+\S+\s+(\d+)$/) { push(@at, $2) if ($1 eq $user); } } |