3 # Contributed by Graham Barr <Graham.Barr@tiuk.ti.com>
7 $SIG{__WARN__} = sub { $warn .= join("",@_) }
11 print $_[1] ? "ok " : "not ok ", $_[0], "\n";
19 ok 1, $warn =~ s/Subroutine sub0 redefined[^\n]+\n//s;
24 ok 2, $warn =~ s/Prototype mismatch: \Q(none) vs ()\E[^\n]+\n//s;
25 ok 3, $warn =~ s/Subroutine sub1 redefined[^\n]+\n//s;
30 ok 4, $warn =~ s/Prototype mismatch: \Q(none) vs ($)\E[^\n]+\n//s;
31 ok 5, $warn =~ s/Subroutine sub2 redefined[^\n]+\n//s;
36 ok 6, $warn =~ s/Prototype mismatch: \Q() vs (none)\E[^\n]+\n//s;
37 ok 7, $warn =~ s/Constant subroutine sub3 redefined[^\n]+\n//s;
42 ok 8, $warn =~ s/Constant subroutine sub4 redefined[^\n]+\n//s;
47 ok 9, $warn =~ s/Prototype mismatch: \Q() vs ($)\E[^\n]+\n//s;
48 ok 10, $warn =~ s/Constant subroutine sub5 redefined[^\n]+\n//s;
53 ok 11, $warn =~ s/Prototype mismatch: \Q($) vs (none)\E[^\n]+\n//s;
54 ok 12, $warn =~ s/Subroutine sub6 redefined[^\n]+\n//s;
59 ok 13, $warn =~ s/Prototype mismatch: \Q($) vs ()\E[^\n]+\n//s;
60 ok 14, $warn =~ s/Subroutine sub7 redefined[^\n]+\n//s;
65 ok 15, $warn =~ s/Subroutine sub8 redefined[^\n]+\n//s;
70 ok 16, $warn =~ s/Prototype mismatch: \(\$\Q@) vs ($)\E[^\n]+\n//s;
71 ok 17, $warn =~ s/Subroutine sub9 redefined[^\n]+\n//s;
75 # If we got any errors that we were not expecting, then print them
76 print $_ if length $_;