diff options
| author | mark <mark> | 2011-12-13 20:34:26 +0000 |
|---|---|---|
| committer | mark <mark> | 2011-12-13 20:34:26 +0000 |
| commit | fdb9aecd3c4bcaef6f13becbe209e7cd7475204b (patch) | |
| tree | 734cfba424293c562907a868715932f99d393224 /FS | |
| parent | 72a62c9de1168b21adbed376ac090c61c14a1018 (diff) | |
silence warnings under 5.14
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_pkg_reason.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/cust_pkg_reason.pm b/FS/FS/cust_pkg_reason.pm index 72a23198d..7c68e623a 100644 --- a/FS/FS/cust_pkg_reason.pm +++ b/FS/FS/cust_pkg_reason.pm @@ -211,7 +211,7 @@ sub _upgrade_data { # class method #remove nullability if scalar(@migrated) - $count == 0 && ->column('action'); #seek expirations/adjourns without reason - foreach my $field qw( expire adjourn cancel susp ) { + foreach my $field (qw( expire adjourn cancel susp )) { my $addl_from = "LEFT JOIN h_cust_pkg ON ". "(cust_pkg_reason.pkgnum = h_cust_pkg.pkgnum AND". @@ -271,7 +271,7 @@ sub _upgrade_data { # class method } #seek cancels/suspends without reason, but with expire/adjourn reason - foreach my $field qw( cancel susp ) { + foreach my $field (qw( cancel susp )) { my %precursor_map = ( 'cancel' => 'expire', 'susp' => 'adjourn' ); my $precursor = $precursor_map{$field}; |