All,
I've got this simple rule, and I keep getting the error...
Use of uninitialized value $node in exists at (eval 13) line 1.
Here is the rule. Any obvious errors you can see?
This is my 1st attempt at using perlfunc with pattern. Not sure if I'm doing
it right.
Thanks.
Gary Boyles
type=Single
continue=DontCont
ptype=perlfunc
pattern=sub { \
my(@pLine) = (); \
my($node) = "0"; \
@pLine = split(/\s+::\s+/, $_[0]); \
$node = $pLine[3]; \
if (exists $nodeSuppress{$node}) \
{ return 1; } \
else \
{ return 0; } \
}
desc=NodeAndClassSuppress -- $0
action=write /sec/log/sec.main.log %s
------------------------------------------------------------------------------
Don't let slow site performance ruin your business. Deploy New Relic APM
Deploy New Relic app performance management and know exactly
what is happening inside your Ruby, Python, PHP, Java, and .NET app
Try New Relic at no cost today and get our sweet Data Nerd shirt too!
http://p.sf.net/sfu/newrelic-dev2dev
_______________________________________________
Simple-evcorr-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/simple-evcorr-users
