Re: Check exist of anonymous subroutine before calling it within regexp substitute?

($out_message = $log_format) =~ s/%(.)/
    if ($meta_char{$1}) {
        $meta_char{$1}->()
    } else {
        warn("Unrecognized format %$1\n");
        "%$1"
    }
/ge;
[download]

Comment on Re: Check exist of anonymous subroutine before calling it within regexp substitute? Download Code