selftest/Subunit.pm: fix perl warnings

Argument "\n" isn't numeric in numeric ne (!=) at selftest/Subunit.pm line 136

metze

diff --git a/selftest/Subunit.pm b/selftest/Subunit.pm
index d5c8277fcaa9decb4fa37f8b76d8fbeb805dbe22..7a352bd71b0084c945e802747651a19963437d82 100644 (file)
--- a/selftest/Subunit.pm
+++ b/selftest/Subunit.pm
@@ -133,7 +133,7 @@ sub end_test($$;$)
        if ($reason) {
                print "$result: $name [\n";
                print $reason;
-               if (substr($reason, -1, 1) != "\n") { print "\n"; }
+               if (substr($reason, -1, 1) ne "\n") { print "\n"; }
                print "]\n";
        } else {
                print "$result: $name\n";