Parse atq(1) output correctly under various (but not all perhaps)

locale settings: allow any date and time separator characters.

diff --git a/adduser/rmuser.perl b/adduser/rmuser.perl
index 7e0f90a7bd62b549c5c43f465485690d811400f4..aeb99884131ce20e9cf0d6e7f44d2538cccdd500 100644 (file)
--- 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);
        }
     }