Skip Menu |

This queue is for tickets about the Net-Server CPAN distribution.

Report information
The Basics
Id: 77166
Status: resolved
Priority: 0/
Queue: Net-Server

People
Owner: Nobody in particular
Requestors: PJCJ [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: defined(@array) is deprecated
In perl 5.16 the use of defined(@array) is still deprecated, but now there is a warning. This simple patch fixes the problem: --- /home/pjcj/perl5/perlbrew/perls/perl-5.16.0- RC0/lib/site_perl/5.16.0/Net/Server.pm.org 2010-07-09 16:55:31.000000000 +0200 +++ /home/pjcj/perl5/perlbrew/perls/perl-5.16.0- RC0/lib/site_perl/5.16.0/Net/Server.pm 2012-05-12 16:06:07.133507618 +0200 @@ -208,7 +208,7 @@ } ### do command line - $self->process_args( \@ARGV, $template ) if defined @ARGV; + $self->process_args( \@ARGV, $template ) if @ARGV; ### do startup file args ### cache a reference for multiple calls later
The code is updated as of the just released version 2.000 On Sat May 12 10:22:04 2012, PJCJ wrote: Show quoted text
> In perl 5.16 the use of defined(@array) is still deprecated, but now > there is a warning. This simple patch fixes the problem: > > > --- /home/pjcj/perl5/perlbrew/perls/perl-5.16.0- > RC0/lib/site_perl/5.16.0/Net/Server.pm.org 2010-07-09 > 16:55:31.000000000 +0200 > +++ /home/pjcj/perl5/perlbrew/perls/perl-5.16.0- > RC0/lib/site_perl/5.16.0/Net/Server.pm 2012-05-12 16:06:07.133507618 > +0200 > @@ -208,7 +208,7 @@ > } > > ### do command line > - $self->process_args( \@ARGV, $template ) if defined @ARGV; > + $self->process_args( \@ARGV, $template ) if @ARGV; > > ### do startup file args > ### cache a reference for multiple calls later
The new code handles the issue