20 lines
513 B
Perl
20 lines
513 B
Perl
$NetBSD: patch-lib_RT_CustomFieldValues_External.pm,v 1.1 2011/10/25 19:38:10 spz Exp $
|
|
|
|
perl 5.14 qw() in for* fixes
|
|
|
|
--- lib/RT/CustomFieldValues/External.pm.orig 2011-04-14 00:32:21.000000000 +0000
|
|
+++ lib/RT/CustomFieldValues/External.pm
|
|
@@ -94,10 +94,10 @@ sub _Init {
|
|
|
|
sub CleanSlate {
|
|
my $self = shift;
|
|
- delete $self->{ $_ } foreach qw(
|
|
+ delete $self->{ $_ } foreach ( qw(
|
|
__external_cf
|
|
__external_cf_limits
|
|
- );
|
|
+ ) );
|
|
return $self->SUPER::CleanSlate(@_);
|
|
}
|
|
|