Changeset 10621 for trunk/Padre/lib/Padre/Task/HTTPClient.pm

Timestamp:

02/08/10 03:51:35 (2 years ago)

Author:

azawawi

Message:

Perl tidy

File:

• trunk/Padre/lib/Padre/Task/HTTPClient.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Task/HTTPClient.pm

@@ -52 +52 @@
     require Padre::Util::SVN;
     my $revision = Padre::Util::SVN::padre_version();
-    $args{method}               ||= 'GET';
+    $args{method} ||= 'GET';
     $args{headers}->{'X-Padre'} ||= "Padre version $VERSION $revision";
 
     # Each module will be tested and the first working one should return
     # a object, all others should return nothing (undef)
-    foreach my $driver ( @DRIVERS ) {
+    foreach my $driver (@DRIVERS) {
         eval "require $driver;";
         next if $@;