[freeside-commits] freeside/FS/FS/part_export nas_wrapper.pm, 1.1, 1.2

Kristian Hoffmann,420,, khoff at wavetail.420.am
Thu Apr 5 17:01:04 PDT 2007


Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail:/tmp/cvs-serv23378

Modified Files:
	nas_wrapper.pm 
Log Message:
Disable debug output by default.
Pass @_ along to new exports.


Index: nas_wrapper.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/nas_wrapper.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- nas_wrapper.pm	31 Jan 2007 05:45:32 -0000	1.1
+++ nas_wrapper.pm	6 Apr 2007 00:01:02 -0000	1.2
@@ -45,7 +45,7 @@
 
 @ISA = qw(FS::part_export);
 $me = '[' . __PACKAGE__ . ']';
-$DEBUG = 1;
+$DEBUG = 0;
 
 %info = (
   'svc'     => 'svc_broadband',
@@ -189,7 +189,7 @@
   }
 
   warn "[debug]$me Dispatching child exports... "
-    . &Dumper($queue_child_exports);
+    . &Dumper($queue_child_exports) if $DEBUG;
 
   # Actually call the child exports now, with their preset action and arguments.
   foreach my $_action (keys(%$queue_child_exports)) {
@@ -199,6 +199,7 @@
         $_child_export,
         $_action,
         @{$_child_export->{'args'}},
+        @_,
       );
 
       # Bail if there's an error queueing one of the exports.



More information about the freeside-commits mailing list