15 lines
567 B
Perl
15 lines
567 B
Perl
$NetBSD: patch-t_approval_admincc.t,v 1.1 2011/10/25 19:38:10 spz Exp $
|
|
|
|
perl 5.14 qw() in for* fixes
|
|
|
|
--- t/approval/admincc.t.orig 2011-04-14 00:32:21.000000000 +0000
|
|
+++ t/approval/admincc.t
|
|
@@ -32,7 +32,7 @@ for my $user_name (qw(minion cto coo ceo
|
|
);
|
|
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.
|