From 3f965d65535b31bcb2a2b37cc625ad46d82c81a9 Mon Sep 17 00:00:00 2001
From: khoff <khoff>
Date: Fri, 6 Apr 2007 00:01:02 +0000
Subject: [PATCH] Disable debug output by default. Pass @_ along to new
 exports.

---
 FS/FS/part_export/nas_wrapper.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/FS/FS/part_export/nas_wrapper.pm b/FS/FS/part_export/nas_wrapper.pm
index fee9f48fe..2499ba3ee 100644
--- a/FS/FS/part_export/nas_wrapper.pm
+++ b/FS/FS/part_export/nas_wrapper.pm
@@ -45,7 +45,7 @@ use Data::Dumper qw(Dumper);
 
 @ISA = qw(FS::part_export);
 $me = '[' . __PACKAGE__ . ']';
-$DEBUG = 1;
+$DEBUG = 0;
 
 %info = (
   'svc'     => 'svc_broadband',
@@ -189,7 +189,7 @@ sub _export_command {
   }
 
   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 @@ sub _export_command {
         $_child_export,
         $_action,
         @{$_child_export->{'args'}},
+        @_,
       );
 
       # Bail if there's an error queueing one of the exports.
-- 
2.11.0