exception: white space cleanup

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/PVE/APIClient/Exception.pm b/PVE/APIClient/Exception.pm
index e9110f1cfaac91f524b6c6c500c4fd1dfba9865a..a2bfa29484f4ceb5cfa24ad62818e58858e7eb2c 100644 (file)
--- a/PVE/APIClient/Exception.pm
+++ b/PVE/APIClient/Exception.pm
@@ -11,7 +11,7 @@ use strict;
 use warnings;
 use vars qw(@ISA @EXPORT_OK);
 require Exporter;
-use Storable qw(dclone);       
+use Storable qw(dclone);
 use HTTP::Status qw(:constants);
 
 @ISA = qw(Exporter);
@@ -19,7 +19,7 @@ use HTTP::Status qw(:constants);
 use overload '""' => sub {local $@; shift->stringify};
 use overload 'cmp' => sub {
     my ($a, $b) = @_;
-    local $@;  
+    local $@;
     return "$a" cmp "$b"; # compare as string
 };
 
@@ -35,7 +35,7 @@ sub new {
     };
 
     foreach my $p (keys %param) {
-       next if defined($self->{$p}); 
+       next if defined($self->{$p});
        my $v = $param{$p};
        $self->{$p} = ref($v) ? dclone($v) : $v;
     }
@@ -46,7 +46,7 @@ sub new {
 sub raise {
 
     my $exc = PVE::APIClient::Exception->new(@_);
-    
+
     my ($pkg, $filename, $line) = caller;
 
     $exc->{filename} = $filename;
@@ -61,11 +61,11 @@ sub raise_perm_exc {
     my $param = { code => HTTP_FORBIDDEN };
 
     my $msg = "Permission check failed";
-    
+
     $msg .= " ($what)" if $what;
 
     my $exc = PVE::APIClient::Exception->new("$msg\n", %$param);
-    
+
     my ($pkg, $filename, $line) = caller;
 
     $exc->{filename} = $filename;
@@ -91,7 +91,7 @@ sub raise_param_exc {
     $param->{usage} = $usage if $usage;
 
     my $exc = PVE::APIClient::Exception->new("Parameter verification failed.\n", %$param);
-    
+
     my ($pkg, $filename, $line) = caller;
 
     $exc->{filename} = $filename;
@@ -142,7 +142,7 @@ sub stringify {
 sub PROPAGATE {
     my ($self, $file, $line) = @_;
 
-    push @{$self->{propagate}}, [$file, $line]; 
+    push @{$self->{propagate}}, [$file, $line];
 
     return $self;
 }