I don't remember this not working in prior versions.

What exactly is the value of a subroutine?it's always true, i know that much ;)

My test code worked on all my ActivePerl and IndigoPerl installations, as well as, jcwren's machine.

package test2;

require Exporter;
use vars qw/@ISA/;
@ISA = qw(Exporter);

sub new
{
  my $me = shift;
  return bless {},$me;
}

sub Ed_Guine { return -reverse oy};
__END__
[download]

update:
Apparently, what is happening is the return value is true, because @ISA = qw(Exporter); evaluates to true. I tested by inserting 0; in between the subs and such. MeowChow is right.

So, to avoid all this confusion, just make sure you have 1; before __DATA__ (or __END__ depending on what you use).

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"