diff options
| -rw-r--r-- | dist/Env/lib/Env.pm | 4 | ||||
| -rw-r--r-- | lib/Benchmark.pm | 6 | ||||
| -rw-r--r-- | lib/Class/Struct.pm | 4 | ||||
| -rw-r--r-- | lib/overload.pm | 6 | ||||
| -rw-r--r-- | lib/overload.t | 2 | ||||
| -rw-r--r-- | lib/warnings.pm | 4 | ||||
| -rw-r--r-- | regen/warnings.pl | 4 |
7 files changed, 15 insertions, 15 deletions
diff --git a/dist/Env/lib/Env.pm b/dist/Env/lib/Env.pm index eaf30f15a3..991afddc02 100644 --- a/dist/Env/lib/Env.pm +++ b/dist/Env/lib/Env.pm @@ -1,6 +1,6 @@ package Env; -our $VERSION = '1.05'; +our $VERSION = '1.06'; =head1 NAME @@ -75,7 +75,7 @@ Gregor N. Purdy E<lt>F<gregor@focusresearch.com>E<gt> =cut sub import { - my ($callpack) = caller(0); + my $callpack = caller(0); my $pack = shift; my @vars = grep /^[\$\@]?[A-Za-z_]\w*$/, (@_ ? @_ : keys(%ENV)); return unless @vars; diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm index 3eeba79873..b68e96ad17 100644 --- a/lib/Benchmark.pm +++ b/lib/Benchmark.pm @@ -482,7 +482,7 @@ our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION); clearcache clearallcache disablecache enablecache); %EXPORT_TAGS=( all => [ @EXPORT, @EXPORT_OK ] ) ; -$VERSION = 1.23; +$VERSION = 1.24; # --- ':hireswallclock' special handling @@ -683,9 +683,9 @@ sub runloop { my($t0, $t1, $td); # before, after, difference # find package of caller so we can execute code there - my($curpack) = caller(0); + my $curpack = caller(0); my($i, $pack)= 0; - while (($pack) = caller(++$i)) { + while ($pack = caller(++$i)) { last if $pack ne $curpack; } diff --git a/lib/Class/Struct.pm b/lib/Class/Struct.pm index 1fa0fb47c4..a574734e5c 100644 --- a/lib/Class/Struct.pm +++ b/lib/Class/Struct.pm @@ -14,7 +14,7 @@ require Exporter; @ISA = qw(Exporter); @EXPORT = qw(struct); -$VERSION = '0.67'; +$VERSION = '0.68'; my $print = 0; sub printem { @@ -84,7 +84,7 @@ sub struct { } else { $base_type = 'ARRAY'; - $class = (caller())[0]; + $class = caller(); @decls = @_; } diff --git a/lib/overload.pm b/lib/overload.pm index 2451e68f34..d782271296 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -3,7 +3,7 @@ package overload; use strict; no strict 'refs'; -our $VERSION = '1.36'; +our $VERSION = '1.37'; our %ops = ( with_assign => "+ - * / % ** << >> x .", @@ -54,14 +54,14 @@ sub OVERLOAD { } sub import { - my $package = (caller())[0]; + my $package = caller(); # *{$package . "::OVERLOAD"} = \&OVERLOAD; shift; $package->overload::OVERLOAD(@_); } sub unimport { - my $package = (caller())[0]; + my $package = caller(); shift; *{$package . "::(("} = \&nil; for (@_) { diff --git a/lib/overload.t b/lib/overload.t index c97b87cc37..3a2b50ed92 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -1100,7 +1100,7 @@ is("a$utfvar", "a".200.2.1); # 224 - overload via sv_2pv_flags # were to eval the overload code in the caller's namespace, the privatisation # would be quite transparent. package Hderef; -use overload '%{}' => sub { (caller(0))[0] eq 'Foo' ? $_[0] : die "zap" }; +use overload '%{}' => sub { caller(0) eq 'Foo' ? $_[0] : die "zap" }; package Foo; @Foo::ISA = 'Hderef'; sub new { bless {}, shift } diff --git a/lib/warnings.pm b/lib/warnings.pm index b0dc1037ed..80fc64e484 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -5,7 +5,7 @@ package warnings; -our $VERSION = "1.62"; +our $VERSION = "1.63"; # Verify that we're called correctly so that warnings will work. # Can't use Carp, since Carp uses us! @@ -443,7 +443,7 @@ sub __chk unless defined $offset; } else { - $category = (caller(1))[0] ; + $category = caller(1); $offset = $Offsets{$category}; Croaker("package '$category' not registered for warnings") unless defined $offset ; diff --git a/regen/warnings.pl b/regen/warnings.pl index 98e6b6cab9..21ee95d9b1 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -16,7 +16,7 @@ # # This script is normally invoked from regen.pl. -$VERSION = '1.62'; +$VERSION = '1.63'; BEGIN { require './regen/regen_lib.pl'; @@ -849,7 +849,7 @@ sub __chk unless defined $offset; } else { - $category = (caller(1))[0] ; + $category = caller(1); $offset = $Offsets{$category}; Croaker("package '$category' not registered for warnings") unless defined $offset ; |