2010-11-03T15:49:03 Rolf_PlusW

Hallo,
in meiner Anwendung tritt von Zeit zu Zeit ein Fehler auf, den ich nicht lokalisieren kann.
Die Source ist :

Code: (dl )

1
2
3

	my @pages = map { $_->{class} ne 'DT' ? 1 : 
             ( defined($_->{mid})  && grep ( /\w+/ , @{$_->{texts}} ) ? 1 : 0)
                      } @{$self->session->{caledit}->{pages}};

...

Ich vermute mal er hat ein Problem mit $_ in dem geschachtelten map { grep} Konstrukt , wobei ich ja nicht grep {} @arr sondern grep ( patt, @arr) verwende, da tritt ja $_ eigentl. nicht in Erscheinung.
Wer hat ne Idee, was da falsch ist ?
Rolf

1
2
3

my @pages = map { $_->{class} ne 'DT' ? 1 : 
             ( defined($_->{mid})  && grep ( /\w+/ ) @{$_->{texts}} ? 1 : 0)
                      } @{$self->session->{caledit}->{pages}};