re-tidy perl source code with correct perltidy version

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

src/PVE/API2/Storage/Status.pm

@@ -365,8 +365,10 @@ __PACKAGE__->register_method({
     code => sub {
         my ($param) = @_;
 
-        return PVE::RRD::create_rrd_graph("pve2-storage/$param->{node}/$param->{storage}",
-            $param->{timeframe}, $param->{ds}, $param->{cf});
+        return PVE::RRD::create_rrd_graph(
+            "pve2-storage/$param->{node}/$param->{storage}",
+            $param->{timeframe}, $param->{ds}, $param->{cf},
+        );
     },
 });
 

src/PVE/Storage/RBDPlugin.pm

@@ -617,7 +617,9 @@ sub create_base {
     my $newvolname = $basename ? "$basename/$newname" : "$newname";
 
     my $cmd = $rbd_cmd->(
-        $scfg, $storeid, 'rename',
+        $scfg,
+        $storeid,
+        'rename',
         get_rbd_path($scfg, $name),
         get_rbd_path($scfg, $newname),
     );