missing warnings unless $^P set?

Okay, so I made Xyzzy.pm:

  package Xyzzy;

  sub import { *{Foo} = sub { ... }; }

  1;

You'd expect this to issue redef warnings with -w, but:

  ~$ perl -w -e 'use Xyzzy; use Xyzzy;'
  (no output)

But!

  ~$ perl -w -e 'BEGIN { $^P = 1 } use Xyzzy; use Xyzzy;'
  Subroutine Xyzzy::Foo redefined at Xyzzy.pm line 4.

The value I put in $^P doesn't matter, as long as it's true.

-- 
rjbs

• missing warnings unless $^P set? by Ricardo Signes
• Re: missing warnings unless $^P set? by Tony Cook