Re: [Mon-devel] [Mon-commit] mon mon,1.23,1.24

[Augie S. <aug...@gm...>]

This was causing syslog messages to be silently discarded in modern
versions of Perl; this should probably go into the 1.2 Stable Branch
as well; what do you think Jim?

--Augie


On 12/3/07, Augie Schwer <as...@us...> wrote:
> Update of /cvsroot/mon/mon
> In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv7593
>
> Modified Files:
>         mon
> Log Message:
> Fixing syslog dying in eval because of attempted write to read-only variable; bug 1803008 - patch from Andrew Eason.
>
> Index: mon
> ===================================================================
> RCS file: /cvsroot/mon/mon/mon,v
> retrieving revision 1.23
> retrieving revision 1.24
> diff -C2 -d -r1.23 -r1.24
> *** mon 15 Jul 2007 13:21:48 -0000      1.23
> --- mon 3 Dec 2007 18:24:55 -0000       1.24
> ***************
> *** 5395,5399 ****
>      eval {
>          local $SIG{"__DIE__"}= sub { };
> !        my @log = map { s/\%//mg; } @_;
>          Sys::Syslog::syslog(@log);
>      }
> --- 5395,5402 ----
>      eval {
>          local $SIG{"__DIE__"}= sub { };
> !        my @log = @_;
> !        for ( @log ) {
> !               s/\%//mg;
> !        }
>          Sys::Syslog::syslog(@log);
>      }
>
>
> -------------------------------------------------------------------------
> SF.Net email is sponsored by: The Future of Linux Business White Paper
> from Novell.  From the desktop to the data center, Linux is going
> mainstream.  Let it simplify your IT future.
> http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
> _______________________________________________
> Mon-commit mailing list
> Mon...@li...
> https://lists.sourceforge.net/lists/listinfo/mon-commit
>


-- 
Augie Schwer    -    Augie@Schwer.us    -    http://schwer.us
Key fingerprint = 9815 AE19 AFD1 1FE7 5DEE 2AC3 CB99 2784 27B0 C072