fwtester.pl: add warnings to trace
authorDietmar Maurer <dietmar@proxmox.com>
Tue, 27 May 2014 04:58:13 +0000 (06:58 +0200)
committerDietmar Maurer <dietmar@proxmox.com>
Tue, 27 May 2014 04:58:13 +0000 (06:58 +0200)
src/PVE/FirewallSimulator.pm
test/fwtester.pl

index ba3b161..b522776 100644 (file)
@@ -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) = @_;
 
index 88cb4bc..bd6c610 100755 (executable)
@@ -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";