subunit-filter: Print names of skipped testsuites.

diff --git a/selftest/Subunit/Filter.pm b/selftest/Subunit/Filter.pm
index 1bd4e5fed2dd06c004bbac77a76b09d70f84d0c1..443baeb7ddb8d70944e16318c2e5177274331977 100644 (file)
--- a/selftest/Subunit/Filter.pm
+++ b/selftest/Subunit/Filter.pm
@@ -92,7 +92,8 @@ sub end_test($$$$$)
 
 sub skip_testsuite($;$)
 {
-       Subunit::skip_testsuite(@_);
+       my ($self, $name, $reason) = @_;
+       Subunit::skip_testsuite($name, $reason);
 }
 
 sub start_testsuite($;$)