X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_main_Mixin.pm;h=bdad511fa696950625f0cba6efcc3f4d1c5ae0e9;hb=03c12b4dabfcaabc218f39ee13557edebc13931d;hp=ded6cc69703b1833ef2e10caa2c1c768c86e73ea;hpb=52a824f9b11ca266be10c76894eaf6607344c8d0;p=freeside.git

diff --git a/FS/FS/cust_main_Mixin.pm b/FS/FS/cust_main_Mixin.pm
index ded6cc697..bdad511fa 100644
--- a/FS/FS/cust_main_Mixin.pm
+++ b/FS/FS/cust_main_Mixin.pm
@@ -236,6 +236,7 @@ linked to a customer.
 
 sub ucfirst_cust_status {
   carp "ucfirst_cust_status deprecated, use cust_status_label";
+  local($FS::cust_main::ucfirst_nowarn) = 1;
   my $self = shift;
   $self->cust_linked
     ? ucfirst( $self->cust_status(@_) )