mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-23 03:33:34 -04:00
16 lines
602 B
Perl
16 lines
602 B
Perl
$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.
|