diff options
author | Mitch Jackson <mitch@mitchjacksontech.com> | 2018-08-14 19:43:41 -0400 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2018-09-19 00:41:50 -0400 |
commit | 70b42b53630d363ac0db942f6b1a12dd56a092ea (patch) | |
tree | 38047fffece30385736247f953d7377b71683271 /FS/FS/part_export | |
parent | 845c334636c4f4e3fbe1ffdf880d3ad837746823 (diff) |
RT# 78547 noexport_hack part_export::phone_shellcommands
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r-- | FS/FS/part_export/phone_shellcommands.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/FS/FS/part_export/phone_shellcommands.pm b/FS/FS/part_export/phone_shellcommands.pm index 71445bf..3f01de3 100644 --- a/FS/FS/part_export/phone_shellcommands.pm +++ b/FS/FS/part_export/phone_shellcommands.pm @@ -5,6 +5,7 @@ use vars qw(@ISA %info); use Tie::IxHash; use String::ShellQuote; use FS::part_export; +use Carp qw(carp); @ISA = qw(FS::part_export); @@ -103,6 +104,12 @@ sub _export_command { my $command = $self->option($action); return '' if $command =~ /^\s*$/; + if ( $FS::svc_Common::noexport_hack ) { + carp "_export_command($action) suppressed by noexport_hack" + if $self->option('debug'); + return; + } + #set variable for the command no strict 'vars'; { |