Re: [perl #132732] use if - behaviour does not match documentation

On Wed, Jan 24, 2018 at 1:09 PM, James E Keenan via RT <
perlbug-followup@perl.org> wrote:
>
>
> As does 're'.  But there I get even stranger results.  Try this out (in
> the patch):
>
> #####
>     {
>         eval "use if (0 > 1), q|re|, qw(is_regexp regexp_pattern);";
>         ok (! re->can('is_regexp'), "Cannot is_regexp");
>         ok (! re->can('regexp_pattern'), "Cannot regexp_pattern");
>         ok (  re->can('is_regexp'), "Can    is_regexp");
>         ok (  re->can('regexp_pattern'), "Can    regexp_pattern");
>     }
> #####
> I get:
> #####
> not ok 11 - Cannot is_regexp
> #   Failed test 'Cannot is_regexp'
> #   at t/if.t line 73.
> not ok 12 - Cannot regexp_pattern
> #   Failed test 'Cannot regexp_pattern'
> #   at t/if.t line 74.
> ok 13 - Can    is_regexp
> ok 14 - Can    regexp_pattern
> #####
>
> Which I read as, "Whether or not the CONDITION evaluates to true or not,
> the two functions are imported from package 're'."
>
>
This does not look like it's testing imports; it's testing whether the
is_regexp and regexp_pattern functions exist in re::, which is always true.

-Dan

• [perl #132732] use if - behaviour does not match documentation by James E Keenan via RT
• Re: [perl #132732] use if - behaviour does not match documentation by sisyphus1
• Re: [perl #132732] use if - behaviour does not match documentation by Dan Book
• [perl #132732] use if - behaviour does not match documentation by James E Keenan via RT
• Re: [perl #132732] use if - behaviour does not match documentation by sisyphus1
• Re: [perl #132732] use if - behaviour does not match documentation by Dan Book
• Re: [perl #132732] use if - behaviour does not match documentation by Dan Book
• [perl #132732] use if - behaviour does not match documentation by James E Keenan via RT
• Re: [perl #132732] use if - behaviour does not match documentation by Abigail
• [perl #132732] use if - behaviour does not match documentation by James E Keenan via RT
• Re: [perl #132732] use if - behaviour does not match documentation by Dan Book
• [perl #132732] use if - behaviour does not match documentation by James E Keenan via RT
• Re: [perl #132732] use if - behaviour does not match documentation by Dan Book
• [perl #132732] use if - behaviour does not match documentation by James E Keenan via RT
• Re: [perl #132732] use if - behaviour does not match documentation by Dan Book
• Re: [perl #132732] use if - behaviour does not match documentation by James E Keenan
• Re: [perl #132732] use if - behaviour does not match documentation by Dan Book
• [perl #132732] use if - behaviour does not match documentation by James E Keenan via RT