I can change the behavior of warn by assigning a sub ref to $SIG{__WARN__}. And if I want to put it back to the default bahavior, I can do a 
$SIG{__WARN__}='DEFAULT';

[download]
But suppose another module also changes the behavior of warn by assigning its own sub ref to $SIG{__WARN__}. Then, one assignment overwrites the other. Wouldn't it be friendlier to save the current warn subroutine and call it within your warn subroutine? And instead of just setting the warning back to the default behavior, why not put the preceding warn routine back? Has anyone tried to do this? If so, do you have an elegant solution?

In reply to signal handlers that play nice by esharris

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.