summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--ext/B/B/Deparse.pm3
-rw-r--r--ext/IO/lib/IO/Handle.pm20
-rw-r--r--ext/IO/lib/IO/Pipe.pm6
-rw-r--r--lib/ExtUtils/Liblist/Kid.pm6
-rw-r--r--lib/ExtUtils/MM_NW5.pm6
-rw-r--r--lib/ExtUtils/MM_Win95.pm6
-rw-r--r--lib/Net/NNTP.pm3
-rw-r--r--lib/Net/POP3.pm3
-rw-r--r--lib/Net/SMTP.pm3
-rw-r--r--lib/Pod/Parser.pm3
-rw-r--r--lib/Test/Harness.pm3
-rw-r--r--utils/h2xs.PL6
12 files changed, 42 insertions, 26 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 67c61b7497..21a33799be 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -1086,7 +1086,8 @@ sub lineseq {
my $limit_seq;
if (defined $root) {
$limit_seq = $out_seq;
- my $nseq = $self->find_scope_st($root->sibling) if ${$root->sibling};
+ my $nseq;
+ $nseq = $self->find_scope_st($root->sibling) if ${$root->sibling};
$limit_seq = $nseq if !defined($limit_seq)
or defined($nseq) && $nseq < $limit_seq;
}
diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm
index 50d391f820..0c65de6007 100644
--- a/ext/IO/lib/IO/Handle.pm
+++ b/ext/IO/lib/IO/Handle.pm
@@ -494,42 +494,47 @@ sub input_record_separator {
sub input_line_number {
local $.;
- my $tell = tell qualify($_[0], caller) if ref($_[0]);
+ () = tell qualify($_[0], caller) if ref($_[0]);
my $prev = $.;
$. = $_[1] if @_ > 1;
$prev;
}
sub format_page_number {
- my $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
+ my $old;
+ $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
my $prev = $%;
$% = $_[1] if @_ > 1;
$prev;
}
sub format_lines_per_page {
- my $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
+ my $old;
+ $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
my $prev = $=;
$= = $_[1] if @_ > 1;
$prev;
}
sub format_lines_left {
- my $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
+ my $old;
+ $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
my $prev = $-;
$- = $_[1] if @_ > 1;
$prev;
}
sub format_name {
- my $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
+ my $old;
+ $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
my $prev = $~;
$~ = qualify($_[1], caller) if @_ > 1;
$prev;
}
sub format_top_name {
- my $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
+ my $old;
+ $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
my $prev = $^;
$^ = qualify($_[1], caller) if @_ > 1;
$prev;
@@ -604,7 +609,8 @@ sub constant {
sub printflush {
my $io = shift;
- my $old = new SelectSaver qualify($io, caller) if ref($io);
+ my $old;
+ $old = new SelectSaver qualify($io, caller) if ref($io);
local $| = 1;
if(ref($io)) {
print $io @_;
diff --git a/ext/IO/lib/IO/Pipe.pm b/ext/IO/lib/IO/Pipe.pm
index c70adfed87..d368500b44 100644
--- a/ext/IO/lib/IO/Pipe.pm
+++ b/ext/IO/lib/IO/Pipe.pm
@@ -98,7 +98,8 @@ sub reader {
unless(ref($me) || ref($me = $me->new));
my $fh = ${*$me}[0];
- my $pid = $me->_doit(0, $fh, @_)
+ my $pid;
+ $pid = $me->_doit(0, $fh, @_)
if(@_);
close ${*$me}[1];
@@ -121,7 +122,8 @@ sub writer {
unless(ref($me) || ref($me = $me->new));
my $fh = ${*$me}[1];
- my $pid = $me->_doit(1, $fh, @_)
+ my $pid;
+ $pid = $me->_doit(1, $fh, @_)
if(@_);
close ${*$me}[0];
diff --git a/lib/ExtUtils/Liblist/Kid.pm b/lib/ExtUtils/Liblist/Kid.pm
index e3c7a1fcf3..d67aa01963 100644
--- a/lib/ExtUtils/Liblist/Kid.pm
+++ b/lib/ExtUtils/Liblist/Kid.pm
@@ -227,9 +227,9 @@ sub _win32_ext {
return ("", "", "", "", ($give_libs ? [] : ())) unless $potential_libs;
my $cc = $Config{cc};
- my $VC = 1 if $cc =~ /^cl/i;
- my $BC = 1 if $cc =~ /^bcc/i;
- my $GC = 1 if $cc =~ /^gcc/i;
+ my $VC = $cc =~ /^cl/i;
+ my $BC = $cc =~ /^bcc/i;
+ my $GC = $cc =~ /^gcc/i;
my $so = $Config{'so'};
my $libs = $Config{'perllibs'};
my $libpth = $Config{'libpth'};
diff --git a/lib/ExtUtils/MM_NW5.pm b/lib/ExtUtils/MM_NW5.pm
index 4e626cc23e..ca856df9da 100644
--- a/lib/ExtUtils/MM_NW5.pm
+++ b/lib/ExtUtils/MM_NW5.pm
@@ -32,9 +32,9 @@ use ExtUtils::MakeMaker qw( &neatvalue );
$ENV{EMXSHELL} = 'sh'; # to run `commands`
-my $BORLAND = 1 if $Config{'cc'} =~ /^bcc/i;
-my $GCC = 1 if $Config{'cc'} =~ /^gcc/i;
-my $DMAKE = 1 if $Config{'make'} =~ /^dmake/i;
+my $BORLAND = $Config{'cc'} =~ /^bcc/i;
+my $GCC = $Config{'cc'} =~ /^gcc/i;
+my $DMAKE = $Config{'make'} =~ /^dmake/i;
=item os_flavor
diff --git a/lib/ExtUtils/MM_Win95.pm b/lib/ExtUtils/MM_Win95.pm
index 13b11237d7..fe3c170c6b 100644
--- a/lib/ExtUtils/MM_Win95.pm
+++ b/lib/ExtUtils/MM_Win95.pm
@@ -6,9 +6,9 @@ $VERSION = 0.03;
require ExtUtils::MM_Win32;
@ISA = qw(ExtUtils::MM_Win32);
-use Config;
-my $DMAKE = 1 if $Config{'make'} =~ /^dmake/i;
-my $NMAKE = 1 if $Config{'make'} =~ /^nmake/i;
+use Config;
+my $DMAKE = $Config{'make'} =~ /^dmake/i;
+my $NMAKE = $Config{'make'} =~ /^nmake/i;
=head1 NAME
diff --git a/lib/Net/NNTP.pm b/lib/Net/NNTP.pm
index 79261f889d..acf2bf1162 100644
--- a/lib/Net/NNTP.pm
+++ b/lib/Net/NNTP.pm
@@ -21,7 +21,8 @@ sub new
{
my $self = shift;
my $type = ref($self) || $self;
- my $host = shift if @_ % 2;
+ my $host;
+ $host = shift if @_ % 2;
my %arg = @_;
my $obj;
diff --git a/lib/Net/POP3.pm b/lib/Net/POP3.pm
index 7cd44ef179..01b0bb802e 100644
--- a/lib/Net/POP3.pm
+++ b/lib/Net/POP3.pm
@@ -21,7 +21,8 @@ sub new
{
my $self = shift;
my $type = ref($self) || $self;
- my $host = shift if @_ % 2;
+ my $host;
+ $host = shift if @_ % 2;
my %arg = @_;
my $hosts = defined $host ? [ $host ] : $NetConfig{pop3_hosts};
my $obj;
diff --git a/lib/Net/SMTP.pm b/lib/Net/SMTP.pm
index be64037403..424854e540 100644
--- a/lib/Net/SMTP.pm
+++ b/lib/Net/SMTP.pm
@@ -24,7 +24,8 @@ sub new
{
my $self = shift;
my $type = ref($self) || $self;
- my $host = shift if @_ % 2;
+ my $host;
+ $host = shift if @_ % 2;
my %arg = @_;
my $hosts = defined $host ? $host : $NetConfig{smtp_hosts};
my $obj;
diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm
index d12e01624a..653342e20c 100644
--- a/lib/Pod/Parser.pm
+++ b/lib/Pod/Parser.pm
@@ -1155,7 +1155,8 @@ sub parse_from_file {
my $self = shift;
my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : ();
my ($infile, $outfile) = @_;
- my ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.6);
+ my ($in_fh, $out_fh);
+ ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.6);
my ($close_input, $close_output) = (0, 0);
local *myData = $self;
local $_;
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 6cd8b9eeca..35ceaaab88 100644
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -463,7 +463,8 @@ sub _run_all_tests {
bench => 0,
);
- my @dir_files = _globdir $Files_In_Dir if defined $Files_In_Dir;
+ my @dir_files;
+ @dir_files = _globdir $Files_In_Dir if defined $Files_In_Dir;
my $t_start = new Benchmark;
my $width = _leader_width(@tests);
diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 0f47395f04..5d27e67ec0 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -701,7 +701,8 @@ $opt_c = $opt_f = 1 if $opt_X;
$opt_t ||= 'IV';
-my %const_xsub = map { $_,1 } split(/,+/, $opt_s) if $opt_s;
+my %const_xsub;
+%const_xsub = map { $_,1 } split(/,+/, $opt_s) if $opt_s;
my $extralibs = '';
@@ -1307,7 +1308,8 @@ if ($opt_x && $opt_a) {
my $licence_hash = $licence;
$licence_hash =~ s/^/#/gm;
-my $pod = <<"END" unless $opt_P;
+my $pod;
+$pod = <<"END" unless $opt_P;
## Below is stub documentation for your module. You'd better edit it!
#
#=head1 NAME
View Lorry Controller Status