- when ignoring exit codes, ignore exit(-1) also (previously didn't allow '-')
authorGodmar Back <godmar@gmail.com>
Fri, 10 Nov 2006 04:34:20 +0000 (04:34 +0000)
committerGodmar Back <godmar@gmail.com>
Fri, 10 Nov 2006 04:34:20 +0000 (04:34 +0000)
src/tests/tests.pm

index 5e34e866a8a30a5fff9dad2bb2e3b3ba0e05d873..822e7c9b807c6050f0c48c3dce77d2c03f468f64 100644 (file)
@@ -154,7 +154,7 @@ sub compare_output {
     my $ignore_exit_codes = exists $options{IGNORE_EXIT_CODES};
     if ($ignore_exit_codes) {
        delete $options{IGNORE_EXIT_CODES};
-       @output = grep (!/^[a-zA-Z0-9-_]+: exit\(\d+\)$/, @output);
+       @output = grep (!/^[a-zA-Z0-9-_]+: exit\(\-?\d+\)$/, @output);
     }
     my $ignore_user_faults = exists $options{IGNORE_USER_FAULTS};
     if ($ignore_user_faults) {