[ofa-general] [PATCH] infiniband-diags/scripts/IBswcountlimits.pm: clean up long lines

[Ira Weiny]

>From 76499fd3eef2ec847e9967e10f87eb8ecbbfc97d Mon Sep 17 00:00:00 2001
From: Ira K. Weiny <weiny2 at llnl.gov>
Date: Fri, 18 Jan 2008 11:46:27 -0800
Subject: [PATCH] infiniband-diags/scripts/IBswcountlimits.pm: clean up long lines


Signed-off-by: Ira K. Weiny <weiny2 at llnl.gov>
---
 infiniband-diags/scripts/IBswcountlimits.pm |   30 ++++++++++++++++----------
 1 files changed, 18 insertions(+), 12 deletions(-)

diff --git a/infiniband-diags/scripts/IBswcountlimits.pm b/infiniband-diags/scripts/IBswcountlimits.pm
index aed10fc..6985750 100755
--- a/infiniband-diags/scripts/IBswcountlimits.pm
+++ b/infiniband-diags/scripts/IBswcountlimits.pm
@@ -295,9 +295,10 @@ sub get_link_ends
             my $rem_port = $3;
             my $rem_desc = $4;
             my $rem_lid = $5;
-            $rec = { loc_guid => "0x$guid", loc_port => $loc_port, loc_ext_port => "", loc_desc => $desc,
-                        loc_sw_lid => $loc_sw_lid,
-                  rem_guid => "0x$rem_guid", rem_lid => $rem_lid, rem_port => $rem_port, rem_ext_port => "", rem_desc => $rem_desc };
+            $rec = { loc_guid => "0x$guid", loc_port => $loc_port, loc_ext_port => "",
+			loc_desc => $desc, loc_sw_lid => $loc_sw_lid,
+			rem_guid => "0x$rem_guid", rem_lid => $rem_lid,
+			rem_port => $rem_port, rem_ext_port => "", rem_desc => $rem_desc };
          }
          if ($line =~ /^\[(\d+)\]\[ext (\d+)\]\s+\"[HSR]-(.+)\"\[(\d+)\]\(.+\)\s+#.*\"(.*)\"\.* lid (\d+).*/)
          {
@@ -307,9 +308,10 @@ sub get_link_ends
             my $rem_port = $4;
             my $rem_desc = $5;
             my $rem_lid = $6;
-            $rec = { loc_guid => "0x$guid", loc_port => $loc_port, loc_ext_port => $loc_ext_port, loc_desc => $desc,
-                        loc_sw_lid => $loc_sw_lid,
-                  rem_guid => "0x$rem_guid", rem_lid => $rem_lid, rem_port => $rem_port, rem_ext_port => "", rem_desc => $rem_desc };
+            $rec = { loc_guid => "0x$guid", loc_port => $loc_port, loc_ext_port => $loc_ext_port,
+			loc_desc => $desc, loc_sw_lid => $loc_sw_lid,
+			rem_guid => "0x$rem_guid", rem_lid => $rem_lid,
+			rem_port => $rem_port, rem_ext_port => "", rem_desc => $rem_desc };
          }
          if ($line =~ /^\[(\d+)\]\s+\"[HSR]-(.+)\"\[(\d+)\]\[ext (\d+)\]\(.+\)\s+#.*\"(.*)\"\.* lid (\d+).*/)
          {
@@ -319,9 +321,11 @@ sub get_link_ends
             my $rem_ext_port = $4;
             my $rem_desc = $5;
             my $rem_lid = $6;
-            $rec = { loc_guid => "0x$guid", loc_port => $loc_port, loc_ext_port => "", loc_desc => $desc,
-                        loc_sw_lid => $loc_sw_lid,
-                  rem_guid => "0x$rem_guid", rem_lid => $rem_lid, rem_port => $rem_port, rem_ext_port => $rem_ext_port, rem_desc => $rem_desc };
+            $rec = { loc_guid => "0x$guid", loc_port => $loc_port, loc_ext_port => "",
+			loc_desc => $desc, loc_sw_lid => $loc_sw_lid,
+			rem_guid => "0x$rem_guid", rem_lid => $rem_lid,
+			rem_port => $rem_port, rem_ext_port => $rem_ext_port,
+			rem_desc => $rem_desc };
          }
          if ($line =~ /^\[(\d+)\]\[ext (\d+)\]\s+\"[HSR]-(.+)\"\[(\d+)\]\[ext (\d+)\]\(.+\)\s+#.*\"(.*)\"\.* lid (\d+).*/)
          {
@@ -332,9 +336,11 @@ sub get_link_ends
             my $rem_ext_port = $5;
             my $rem_desc = $6;
             my $rem_lid = $7;
-            $rec = { loc_guid => "0x$guid", loc_port => $loc_port, loc_ext_port => $loc_ext_port, loc_desc => $desc,
-                        loc_sw_lid => $loc_sw_lid,
-                  rem_guid => "0x$rem_guid", rem_lid => $rem_lid, rem_port => $rem_port, rem_ext_port => $rem_ext_port, rem_desc => $rem_desc };
+            $rec = { loc_guid => "0x$guid", loc_port => $loc_port, loc_ext_port => $loc_ext_port,
+			loc_desc => $desc, loc_sw_lid => $loc_sw_lid,
+			rem_guid => "0x$rem_guid", rem_lid => $rem_lid,
+			rem_port => $rem_port, rem_ext_port => $rem_ext_port,
+			rem_desc => $rem_desc };
          }
 	 if ($rec)
 	 {
-- 
1.5.1

-------------- next part --------------
A non-text attachment was scrubbed...
Name: 0001-infiniband-diags-scripts-IBswcountlimits.pm-clean-u.patch
Type: application/octet-stream
Size: 3968 bytes
Desc: not available
URL: <http://lists.openfabrics.org/pipermail/general/attachments/20080118/1a0e7b10/attachment.obj>