cleanup on failed commit

If commit of new policy fails, then remove all filters/qdisc.

1 files changed, 4 insertions, 1 deletions

diff --git a/scripts/vyatta-qos.pl b/scripts/vyatta-qos.pl
index 7680ea7..4ca96b8 100755
--- a/scripts/vyatta-qos.pl
+++ b/scripts/vyatta-qos.pl
@@ -76,7 +76,10 @@ sub update_interface {
 	    }
 
             $policy->commands($out, $interface);
-	    close $out or die "Tc command failed: $!\n";
+	    if (! close $out && ! defined $debug) {
+		delete_interface($interface, $direction);
+		die "Tc commands failed\n";
+	    }
             exit 0;
         }
     }