$NetBSD: patch-t_approval_basic.t,v 1.1 2011/10/25 19:38:10 spz Exp $

perl 5.14 qw() in for* fixes

--- t/approval/basic.t.orig	2011-04-14 00:32:21.000000000 +0000
+++ t/approval/basic.t
@@ -28,7 +28,7 @@ for my $user_name (qw(minion cfo ceo )) 
                    EmailAddress => $user_name.'@company.com');
     my ($val, $msg);
     ($val, $msg) = $user->PrincipalObj->GrantRight(Object =>$q, Right => $_)
-        for qw(ModifyTicket OwnTicket ShowTicket);
+        for (qw(ModifyTicket OwnTicket ShowTicket));
 }
 
 # XXX: we need to make the first approval ticket open so notification is sent.