diff options
author | khoff <khoff> | 2007-04-06 00:01:02 +0000 |
---|---|---|
committer | khoff <khoff> | 2007-04-06 00:01:02 +0000 |
commit | 3f965d65535b31bcb2a2b37cc625ad46d82c81a9 (patch) | |
tree | 87d6c9072bfd648bc19a98bce88df1c01fcff098 /FS/FS/part_export/nas_wrapper.pm | |
parent | 3944b4589214f68e1b4fa2fecf13d7b5c34242f6 (diff) |
Disable debug output by default.
Pass @_ along to new exports.
Diffstat (limited to 'FS/FS/part_export/nas_wrapper.pm')
-rw-r--r-- | FS/FS/part_export/nas_wrapper.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/part_export/nas_wrapper.pm b/FS/FS/part_export/nas_wrapper.pm index fee9f48..2499ba3 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. |