From: Dietmar Maurer <dietmar@proxmox.com>
Date: Tue, 27 May 2014 04:58:13 +0000 (+0200)
Subject: fwtester.pl: add warnings to trace
X-Git-Url: https://git.proxmox.com/?p=pve-firewall.git;a=commitdiff_plain;h=49124851801a8f31aad524d02586399593283077

fwtester.pl: add warnings to trace
---

diff --git a/src/PVE/FirewallSimulator.pm b/src/PVE/FirewallSimulator.pm
index ba3b161..b522776 100644
--- a/src/PVE/FirewallSimulator.pm
+++ b/src/PVE/FirewallSimulator.pm
@@ -37,6 +37,14 @@ sub add_trace {
     }
 }
 
+$SIG{'__WARN__'} = sub {
+    my $err = $@;
+    my $t = $_[0];
+    chomp $t;
+    add_trace("$t\n");
+    $@ = $err;
+};
+
 sub nf_dev_match {
     my ($devre, $dev) = @_;
 
diff --git a/test/fwtester.pl b/test/fwtester.pl
index 88cb4bc..bd6c610 100755
--- a/test/fwtester.pl
+++ b/test/fwtester.pl
@@ -39,6 +39,8 @@ sub run_tests {
     my ($ruleset, $ipset_ruleset) = 
 	PVE::Firewall::compile(undef, undef, $vmdata, 1);
 
+    print PVE::FirewallSimulator::get_trace() . "\n" if !$debug;
+
     my $filename = "$testdir/$testfile";
     my $fh = IO::File->new($filename) ||
 	die "unable to open '$filename' - $!\n";