Parent Directory | Revision Log | Patch
revision 467 by dpavlin, Wed Nov 19 18:07:31 2008 UTC | revision 468 by dpavlin, Wed Nov 19 19:59:52 2008 UTC | |
---|---|---|
# | Line 57 implemented by L<Frey::ObjectBrowser>. | Line 57 implemented by L<Frey::ObjectBrowser>. |
57 | ||
58 | =cut | =cut |
59 | ||
60 | use Data::Dump qw/dump/; | |
61 | ||
62 | our @warnings; | |
63 | $SIG{__WARN__} = sub { | |
64 | # emit original warning | |
65 | warn(@_); | |
66 | ||
67 | push @warnings, $_ foreach @_; | |
68 | }; | |
69 | ||
70 | sub warnings { | |
71 | #print STDERR "### warnings ",dump( @warnings ); | |
72 | @warnings; | |
73 | } | |
74 | ||
75 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |