diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm index 8d584eba4..386b7aa13 100644 --- a/Shorewall/Perl/Shorewall/Config.pm +++ b/Shorewall/Perl/Shorewall/Config.pm @@ -4226,8 +4226,9 @@ sub append_file( $;$$ ) { # # Include progress message -- Pretend progress_message call was in the file # + my $name = $globals{EXPORT} ? "$file user exit" : $user_exit; $result = 1; - save_progress_message "Processing $user_exit ..."; + save_progress_message "Processing $name ..."; copy1 $user_exit; } }