[smokeping-users] Re: Alert via program fails on raising edge

[Niko Tyni]

On Fri, Apr 21, 2006 at 05:53:55PM +0200, Peter Klausner wrote:

>     if ( $addr =~ /^\|(.+)/) {
>         if ($edgetrigger) {
> 1140:       system $1,$_,$line,$loss,$rtt,$tree->{host}, ($what =~/raise/);

> It seems this works only, if the arguments to system() are processed
> left to right.
> Otherwise the program, i.e. $1 pulled from the address, gets overwritten
> from the 1st subpattern in ($what =~/raise/) - which is empty.

Thanks! Like Damian Conway says in 'Perl Best Practices': 
 Always give captured substrings proper names.

I'll fix this for the next release.

Cheers,
-- 
Niko

--
Unsubscribe mailto:smokeping-users-request at list.ee.ethz.ch?subject=unsubscribe
Help        mailto:smokeping-users-request at list.ee.ethz.ch?subject=help
Archive     http://lists.ee.ethz.ch/smokeping-users
WebAdmin    http://lists.ee.ethz.ch/lsg2.cgi