Warning: Variable "$xxx" will not stay shared

[K@rl]

Nix schlimmes, aber mich würde schon mal interessieren,
wie ich die folgende Warnung loss bekomme:

"Variable "$self" will not stay shared at xxx.pm line 930."

Perl Code:

sub ShowSessions {
    my $self = shift die 'missing parameter $self';
    
    # ....
    
    sub sortsession {
        return ($self->GetLogintimeOfSession(SID => $a)
                <=>
                $self->GetLogintimeOfSession(SID => $b));
        };
    foreach (sort sortsession @$keyPtr) {

# ......

Hab's schon mit "local" probiert (will Perl nicht), oder mit
"GetLogintimeOfSession($self, SID => $a)"
-> ändert nichts

Wasnun?

Ciao
  K@rl