From a38fd82e99c02be3412745842f603c05c223ddef Mon Sep 17 00:00:00 2001 From: Yaroslav Tykhiy Date: Wed, 2 Jan 2002 15:35:33 +0000 Subject: Parse atq(1) output correctly under various (but not all perhaps) locale settings: allow any date and time separator characters. --- adduser/rmuser.perl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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($_ = )) { 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); } } -- cgit v1.2.3-56-ge451