UntoggleDirekt ($) erzeugt Perl-Warnung

[grappa24]

Hallo,

um toggle events auf on/off umzusetzen habe ich gemäß WIKI folgendes notify angelegt

Code Auswählen Erweitern

define notifier_untoggle notify .*:toggle {UntoggleDirect("@") if ($attr{@}{comment} eq "Untoggle")}
 
Jetzt erhalte ich folgende Perl-Warnungen

Code Auswählen Erweitern

PERL WARNING: Use of uninitialized value in string eq at (eval 29147) line 1.
eval: {UntoggleDirect("CUL_HOERMANN_CF9D8A0F80") if ($attr{CUL_HOERMANN_CF9D8A0F80}{comment} eq "Untoggle")}

Code Auswählen Erweitern

PERL WARNING: Use of uninitialized value in string eq at (eval 31384) line 1.
eval: {UntoggleDirect("FS20_1b1b10") if ($attr{FS20_1b1b10}{comment} eq "Untoggle")}

Jemand ne Idee, ob/wie man die Warnung wegbekommt?

[rudolfkoenig]

Indem man nicht  $attr{@}{comment} verwendet sondern die im commandref empfohlene AttrVal("@","comment","")

[fhainz]

Hab ich gestern im Wiki schon geändert!

@rudi

@ ist ja depracted oder? Ich habs in $NAME umgeändert.


Grüße

[rudolfkoenig]

@ ist ja depracted oder? Ich habs in $NAME umgeändert.

Richtig. Bin gespannt, wann ich die Mut aufbringen werde, % und @ zu entfernen.

[grappa24]

danke, scheint zu helfen Die Warnung ist weg ...