well, don't make things worse when debugging...

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 7445e35..ae6155a 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1146,7 +1146,7 @@ sub collect {
       my $error = eval $part_bill_event->eventcode;
 
       if ( $@ ) {
-        warn "fatal error running invoice event (". part_bill_event->eventcode.
+        warn "fatal error running invoice event (". $part_bill_event->eventcode.
              "): $@";
       }