From 49124851801a8f31aad524d02586399593283077 Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Tue, 27 May 2014 06:58:13 +0200
Subject: [PATCH] fwtester.pl: add warnings to trace

---
 src/PVE/FirewallSimulator.pm | 8 ++++++++
 test/fwtester.pl             | 2 ++
 2 files changed, 10 insertions(+)

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";
-- 
2.39.2