[gelöst] Frage an PERL-Fachmann

[FHEm2005]

Ich habe zwei userReadings definiert:

Code Auswählen Erweitern

FAVSTR_FTUI {my $u=InternalVal($name,'FAVSTR','');my @sender =split(/,+/,$u);my @favSort = sort(@sender);my $u = join(":",@favSort);return($u)},
FAVSTR_ALIAS {my $v=InternalVal($name,'FAVSTR','');my @alias =split(/,+/,$v);my @favSort = sort(@alias);my $v = join(":",@favSort);$v =~ s/_/ /g; return($v)},

Dabei ist FAVSTR
   
ANTENNE_BAYERN_Oldies_but_Goldies,Heart_Beat_Radio_Memory_Hits,WDR2_Aachen_und_Region,1LIVE_Das_junge_Radio_des_WDR,Schwany_Instrumental,Bear_Family_Radio,WDR5_-_Hoeren_erleben,WDR4_-_Melodien_fuer_ein_gutes_Gefuehl,Schwany_6er_Hitradio,WDR3_-_Lust_am_Hoeren

Jetzt bekomme ich des Log alla 5 Sekunden zugeballert mit den Meldungen:

Code Auswählen Erweitern

2016.05.29 14:33:31 3: eval: {my $v=InternalVal($name,'FAVSTR','');my @alias =split(/,+/,$v);my @favSort = sort(@alias);my $v = join(":",@favSort);$v =~ s/_/ /g; return($v)}
2016.05.29 14:33:31 1: PERL WARNING: "my" variable $v masks earlier declaration in same scope at (eval 95526) line 1.
2016.05.29 14:33:31 3: eval: {my $u=InternalVal($name,'FAVSTR','');my @sender =split(/,+/,$u);my @favSort = sort(@sender);my $u = join(":",@favSort);return($u)}
2016.05.29 14:33:31 1: PERL WARNING: "my" variable $u masks earlier declaration in same scope at (eval 95525) line 1.


Ich finde keinen Fehler (was nicht heißen soll, dass keiner da ist)    . Was mache ich falsch?

Gruß Eberhard

[betateilchen]

Ich finde keinen Fehler (was nicht heißen soll, dass keiner da ist) 

Die Fehlermeldung ist doch eindeutig. Und doch, da ist ein Fehler.

In FAVSTR_ALIAS definierst Du zweimal $v mit my davor. Beim zweiten Mal musst Du das my weglassen, weil es die Variable ja schon gibt.

[FHEm2005]

Hallo Betateilchen,
da schaue ich x-mal hin und finde den Fehler nicht der so offensichtlich ist.
Vielen 1000 Dank

Gruß Eberhard