code cleanup

diff --git a/src/PVE/CLI/pct.pm b/src/PVE/CLI/pct.pm
index fb2ec709fde4ed7d8207ff76255ffb1f7bf3cb43..ca8722941c07723c63dda7ed12478485d8bf9617 100755 (executable)
--- a/src/PVE/CLI/pct.pm
+++ b/src/PVE/CLI/pct.pm
@@ -388,7 +388,8 @@ __PACKAGE__->register_method({
        my $dest = extract_param($param, 'destination');
 
        my $perms = extract_param($param, 'perms');
-       $perms = '0'.$perms if defined($perms) && $perms !~m/^0/;
+       # assume octal as default
+       $perms = "0$perms" if defined($perms) && $perms !~m/^0/;
        my $user = extract_param($param, 'user');
        my $group = extract_param($param, 'group');
 
@@ -470,7 +471,8 @@ __PACKAGE__->register_method({
        my $dest = extract_param($param, 'destination');
 
        my $perms = extract_param($param, 'perms');
-       $perms = '0'.$perms if defined($perms) && $perms !~m/^0/;
+       # assume octal as default
+       $perms = "0$perms" if defined($perms) && $perms !~m/^0/;
        my $user = extract_param($param, 'user');
        my $group = extract_param($param, 'group');