From ffd666e52164d06bc67d3d134ae8f53eb268bf6b Mon Sep 17 00:00:00 2001
From: root <root@ka-ata-killa.panaceas.james.local>
Date: Wed, 1 Sep 2021 00:15:20 +0100
Subject: tidy

---
 INF/DSRx020.pm | 54 +++++++++++++++++++++++++-----------------------------
 1 file changed, 25 insertions(+), 29 deletions(-)

(limited to 'INF/DSRx020.pm')

diff --git a/INF/DSRx020.pm b/INF/DSRx020.pm
index c68274c..94396ed 100644
--- a/INF/DSRx020.pm
+++ b/INF/DSRx020.pm
@@ -399,27 +399,28 @@ sub port_name_set($$$) {
     if ( $port =~ /P(\d+)\.(\d+)/ ) {
         return $self->spc_set_name( $1, $2, $name );
     }
-    elsif ($port =~ /K(\d+)/ ) {
-   my $index= $1;
-    my $res = $self->do_post(
-        { file => 'view-units-by-target-devices' },
-        [
-            file          => 'overview-dsr',
-            saveParms     => 'overview-dsr',
-	    name          => '',
-            index         => $index,
-            targetname    => $name,
-            action        => 'SAVE',
-        ]
-    );
+    elsif ( $port =~ /K(\d+)/ ) {
+        my $index = $1;
+        my $res   = $self->do_post(
+            { file => 'view-units-by-target-devices' },
+            [
+                file       => 'overview-dsr',
+                saveParms  => 'overview-dsr',
+                name       => '',
+                index      => $index,
+                targetname => $name,
+                action     => 'SAVE',
+            ]
+        );
 
-    #oid           => '141057',
+        #oid           => '141057',
 
-    $self->flush();
+        $self->flush();
 
-    return undef unless $res->is_success;
-    return "Success";
-   } else {
+        return undef unless $res->is_success;
+        return "Success";
+    }
+    else {
         return undef;
     }
 }
@@ -463,8 +464,7 @@ sub port_count($) {
     return scalar( @{ $self->{ports} } );
 }
 
-sub port_get_topology($$)
-{
+sub port_get_topology($$) {
     my ( $self, $port ) = @_;
 
     return unless $port =~ /K(\d+)/;
@@ -492,23 +492,19 @@ sub port_get_topology($$)
 
     return undef unless defined $args;
 
-    my $ret = undef ;
+    my $ret = undef;
 
     for my $arg (@$args) {
 
-
-    next unless $arg =~ /^path=a:[^,]*,p:([0-9]+),c:([0-9]+),/;
-	print $arg," -> ", $1, " ",$2 ,"\n";
-	return [$1,$2];
+        next unless $arg =~ /^path=a:[^,]*,p:([0-9]+),c:([0-9]+),/;
+        print $arg, " -> ", $1, " ", $2, "\n";
+        return [ $1, $2 ];
     }
 
-
- return undef;
+    return undef;
 
 }
 
-
-
 sub view($$) {
     my ( $self, $port ) = @_;
 
-- 
cgit v1.2.3