Use special tag for log messages in testing mode
authorJacob Bachmeyer <jcb@gnu.org>
Wed, 24 Mar 2021 22:04:32 +0000 (17:04 -0500)
committerJacob Bachmeyer <jcb@gnu.org>
Wed, 24 Mar 2021 22:04:32 +0000 (17:04 -0500)
upload-ftp-v1.2.pl

index 7a3f12225a55614a5d7f6ad8fab38007602d5a1d..49a8c459ac1711d8ce180d2b8fb16316feeaa683 100755 (executable)
@@ -275,6 +275,8 @@ if (IN_TEST_MODE) { # override the above for testing
   # verify configuration for mock syslog
   die "ftp-upload: test mode: TEST_SYSLOG_SOCKET not valid"
     unless $ENV{TEST_SYSLOG_SOCKET} && -S $ENV{TEST_SYSLOG_SOCKET} && -w _;
+  # override log message tag
+  $log_style = 'Test';
 } else {               # in production mode
   # ensure we are using the real gpgv
   open my $gpgv,'-|',GPGV_BIN, '--version'