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