fixed small bug in cpanify command

mojolicious · Apr 16, 2012 · ef8a510 · ef8a510
1 parent 08ce0f3
commit ef8a510
Show file tree

Hide file tree

Showing 7 changed files with 9 additions and 6 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 This file documents the revision history for Perl extension Mojolicious.
 
+2.83  2012-04-17
+  - Fixed small bug in cpanify command.
+
 2.82  2012-04-16
   - Deprecated relaxed placeholders "/(.foo)" in favor of "/#foo".
   - Deprecated Mojolicious::Routes::Route->waypoint.

diff --git a/lib/Mojolicious.pm b/lib/Mojolicious.pm
@@ -33,7 +33,7 @@ has static   => sub { Mojolicious::Static->new };
 has types    => sub { Mojolicious::Types->new };
 
 our $CODENAME = 'Leaf Fluttering In Wind';
-our $VERSION  = '2.82';
+our $VERSION  = '2.83';
 
 # "These old doomsday devices are dangerously unstable.
 #  I'll rest easier not knowing where they are."

diff --git a/lib/Mojolicious/Command/cpanify.pm b/lib/Mojolicious/Command/cpanify.pm
@@ -22,7 +22,7 @@ sub run {
 
   # Options
   local @ARGV = @_;
-  my ($password, $user) = '';
+  my $password = my $user = '';
   GetOptions(
     'p|password=s' => sub { $password = $_[1] },
     'u|user=s'     => sub { $user     = $_[1] }

diff --git a/t/mojo/ioloop.t b/t/mojo/ioloop.t
@@ -217,7 +217,7 @@ is $client_close, 1, 'client emitted close event once';
 
 # Stream throttling
 $port = Mojo::IOLoop->generate_port;
-my ($client, $server, $client_after, $server_before, $server_after) = '';
+my ($client, $server, $client_after, $server_before, $server_after);
 Mojo::IOLoop->server(
   {address => '127.0.0.1', port => $port} => sub {
     my ($loop, $stream) = @_;

diff --git a/t/mojo/ioloop_tls.t b/t/mojo/ioloop_tls.t
@@ -42,7 +42,7 @@ use Mojo::IOLoop;
 # Built-in certificate
 my $loop = Mojo::IOLoop->new;
 my $port = Mojo::IOLoop->generate_port;
-my ($server, $client) = '';
+my ($server, $client);
 $loop->server(
   {address => '127.0.0.1', port => $port, tls => 1} => sub {
     my ($loop, $stream) = @_;

diff --git a/t/mojo/reactor_ev.t b/t/mojo/reactor_ev.t
@@ -212,7 +212,7 @@ is ref Mojo::IOLoop->singleton->reactor, 'Mojo::Reactor::EV', 'right object';
 ok !Mojo::IOLoop->is_running, 'loop is not running';
 $port = Mojo::IOLoop->generate_port;
 my ($server_err, $server_running, $client_err, $client_running);
-($server, $client) = '';
+$server = $client = '';
 Mojo::IOLoop->server(
   {address => '127.0.0.1', port => $port} => sub {
     my ($loop, $stream) = @_;

diff --git a/t/mojo/reactor_poll.t b/t/mojo/reactor_poll.t
@@ -212,7 +212,7 @@ is ref Mojo::IOLoop->singleton->reactor, 'Mojo::Reactor::Poll',
 ok !Mojo::IOLoop->is_running, 'loop is not running';
 $port = Mojo::IOLoop->generate_port;
 my ($server_err, $server_running, $client_err, $client_running);
-($server, $client) = '';
+$server = $client = '';
 Mojo::IOLoop->server(
   {address => '127.0.0.1', port => $port} => sub {
     my ($loop, $stream) = @_;