X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2Fsubs%2Fauto.pm;h=7975e55fb7634e56f073c021efd522e33e2fea8c;hb=bfb85519592a4c0212420c12dc1dc9bb14888db2;hp=0625cc68078143780a94d44baace6d99a9f4259d;hpb=c31abfbd7888d62dabfd301cc5f7435d7897e63f;p=perl%2Fmodules%2Fsubs-auto.git diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm index 0625cc6..7975e55 100644 --- a/lib/subs/auto.pm +++ b/lib/subs/auto.pm @@ -16,11 +16,11 @@ subs::auto - Read barewords as subroutine names. =head1 VERSION -Version 0.01 +Version 0.02 =cut -our $VERSION = '0.01'; +our $VERSION = '0.02'; =head1 SYNOPSIS @@ -88,7 +88,7 @@ my @core = qw/abs accept alarm atan2 bind binmode bless break caller chdir time times truncate uc ucfirst umask undef unlink unpack unshift untie use utime values vec wait waitpid wantarray warn when write/; -push @core,qw/not __LINE__ __FILE__/; +push @core,qw/not __LINE__ __FILE__ DATA/; my %core; @core{@core} = ();