Latest VWF error handling

nigelhorne · Aug 20, 2024 · 44f8bbc · 44f8bbc
1 parent 829fed9
commit 44f8bbc
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/cgi-bin/page.fcgi b/cgi-bin/page.fcgi
@@ -125,7 +125,13 @@ $SIG{TERM} = \&sig_handler;
 $SIG{PIPE} = 'IGNORE';
 $ENV{'PATH'} = '/usr/local/bin:/bin:/usr/bin';	# For insecurity
 
-$SIG{__WARN__} = sub { Log::WarnDie->dispatcher(undef); die @_ };
+$SIG{__WARN__} = sub {
+	if(open(my $fout, '>>', File::Spec->catfile($tmpdir, "$script_name.stderr"))) {
+		print $fout @_;
+	}
+	Log::WarnDie->dispatcher(undef);
+	CORE::die @_
+};
 
 my $request = FCGI::Request();