No warnings on feature function ambiguity?

[Anonymous Monk]

Ambiguous use of non-feature functions goes unnoticed without warnings:

  $ perl -E '$x = "txt"; sub ref {return $x . "r";}; say &ref($x);'
  txtr
  $ perl -E '$x = "txt"; sub ref {return $x . "r";}; say ref($x);'

  $

With warnings enabled, the non-feature functions will generate warnings about ambiguous context:

  $ perl -wE '$x = "txt"; sub ref {return $x . "r";}; say &ref($x);'
  txtr
  $ perl -wE '$x = "txt"; sub ref {return $x . "r";}; say ref($x);'
  Ambiguous call resolved as CORE::ref(), qualify as such or use &
    at -e line 1.

  $

The trouble is, enabling "feature functions" like say() via the -E command line flag (or 'use features qw(say)', or 'use v5.10', or even 'use 5.010') will not result in warnings about ambiguous context even when warnings are enabled.

  $ perl -wE 'sub say {print "txt\n";}; &say("hello");'
  txt
  $ perl -wE 'sub say {print "txt\n";}; say("hello");'
  hello

Ambiguous functions really should warn when warnings are enabled, even if they are new "feature" functions. I've got 5.10.1 installed at the moment, so my question is, "Has the lack of warnings on feature function ambiguity been fixed in more recent perl versions?"

[Anonymous Monk]

Has the lack of warnings on feature function ambiguity been fixed in more recent perl versions?

Nope

perl -wE " $x = q{txt}; sub ref {return $x . q{r};}; say &ref($x); "
perl -wE " $x = q{txt}; sub ref {return $x . q{r};}; say ref($x); "
perl -wE " $x = q{txt}; sub say {return $x . q{r};}; say &say($x); "
perl -wE " $x = q{txt}; sub say {return $x . q{r};}; say say($x); "
perl -E " say $^V "

---

perl -wE ' $x = q{txt}; sub ref {return $x . q{r};}; say &ref($x); '
perl -wE ' $x = q{txt}; sub ref {return $x . q{r};}; say ref($x); '
perl -wE ' $x = q{txt}; sub say {return $x . q{r};}; say &say($x); '
perl -wE ' $x = q{txt}; sub say {return $x . q{r};}; say say($x); '
perl -E ' say $^V '

---

$ perl -wE " $x = q{txt}; sub ref {return $x . q{r};}; say &ref($x); "
txtr

$ perl -wE " $x = q{txt}; sub ref {return $x . q{r};}; say ref($x); "
Ambiguous call resolved as CORE::ref(), qualify as such or use & at -e
+ line 1.


$ perl -wE " $x = q{txt}; sub say {return $x . q{r};}; say &say($x); "
txtr

$ perl -wE " $x = q{txt}; sub say {return $x . q{r};}; say say($x); "
txt
1

$ perl -E " say $^V "
v5.14.1

http://perl5.git.perl.org/perl.git?a=search&h=HEAD&st=free&s=say

http://perl5.git.perl.org/perl.git?a=search&h=HEAD&st=free&s=ambiguous

https://rt.perl.org/rt3//Public/Search/Simple.html?q=say

https://rt.perl.org/rt3//Public/Search/Simple.html?q=ambiguous