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 | 55a0e284510d69b4c393c792d4269410f189fa45 (patch) | |
tree | e325f1af4ac9512b795eda3101bc1d6214b69823 /usr.sbin/adduser/rmuser.perl | |
parent | 0dd4be31b55cedfc151f9bcf6bb168ec8e9c0c0a (diff) | |
download | src-55a0e284510d69b4c393c792d4269410f189fa45.tar.gz src-55a0e284510d69b4c393c792d4269410f189fa45.zip |
Parse atq(1) output correctly under various (but not all perhaps)
locale settings: allow any date and time separator characters.
Notes
Notes:
svn path=/head/; revision=88814
Diffstat (limited to 'usr.sbin/adduser/rmuser.perl')
-rw-r--r-- | usr.sbin/adduser/rmuser.perl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/usr.sbin/adduser/rmuser.perl b/usr.sbin/adduser/rmuser.perl index 7e0f90a7bd62..aeb99884131c 100644 --- a/usr.sbin/adduser/rmuser.perl +++ b/usr.sbin/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); } } |