(tye)Re9: Inner Subroutines, mod

...and, of course, this won't work at all well under mod_perl. ):

- tye (but my friends call me "Tye")

Comment on (tye)Re9: Inner Subroutines, mod_perl, and Segfaults

Replies are listed 'Best First'.
Re^3: Inner Subroutines, mod_perl, and Segfaults (mod_perl/BEGIN) by tye (Sage) on Nov 02, 2006 at 07:02 UTC
...but, of course (5 years later), it is easy to make this work well under mod_perl: `BEGIN { my $cmpval= sub { my( $val1, $val2 )= @_; if( ref($val1) eq 'Node' ) { $val1= $val1->{node_id}; } if( ref($val2) eq 'Node' ) { $val2= $val2->{node_id}; } return $val1 eq $val2; }; sub getWorkspace { # ... $match= 0 if ! $cmpval->( $N->{$_}, $WHERE->{$_} ); # ... } }` [download] - tye	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Inner Subroutines, mod_perl, and Segfaults (mod_perl/BEGIN)
by tye (Sage) on Nov 02, 2006 at 07:02 UTC

...but, of course (5 years later), it is easy to make this work well under mod_perl:

BEGIN {
    my $cmpval= sub {
        my( $val1, $val2 )= @_;
        if(  ref($val1) eq 'Node'  ) {  $val1= $val1->{node_id};  }
        if(  ref($val2) eq 'Node'  ) {  $val2= $val2->{node_id};  }
        return $val1 eq $val2;
    };

    sub getWorkspace {
        # ...
        $match= 0  if  ! $cmpval->( $N->{$_}, $WHERE->{$_} );
        # ...
    }
}
[download]

- tye

[reply]
[d/l]