[freeside-commits] freeside/FS/FS cust_pkg_reason.pm,1.10,1.11

Ivan,,, ivan at wavetail.420.am
Wed Nov 30 18:19:07 PST 2011


Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv19851

Modified Files:
	cust_pkg_reason.pm 
Log Message:
perl 5.14 compat

Index: cust_pkg_reason.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pkg_reason.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -w -d -r1.10 -r1.11
--- cust_pkg_reason.pm	22 Sep 2011 21:41:46 -0000	1.10
+++ cust_pkg_reason.pm	1 Dec 2011 02:19:05 -0000	1.11
@@ -211,7 +211,7 @@
   #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 @@
   }
 
   #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};



More information about the freeside-commits mailing list