From ff70f1184512df17f9dca85ab80703f9b25c12b3 Mon Sep 17 00:00:00 2001
From: Vladimir Sokolovsky <vlad@mellanox.co.il>
Date: Wed, 29 Oct 2008 14:20:25 +0200
Subject: [PATCH] Skip check_pcie_link if there is no HCA devices present.

Signed-off-by: Vladimir Sokolovsky <vlad@mellanox.co.il>
---
 install.pl | 59 +++++++++++++++++++++++++++---------------------------
 1 file changed, 30 insertions(+), 29 deletions(-)

diff --git a/install.pl b/install.pl
index c535513..029470e 100755
--- a/install.pl
+++ b/install.pl
@@ -3961,37 +3961,38 @@ sub install
 
 sub check_pcie_link
 {
-    open (PCI, "$lspci -d 15b3: -n|") or die "Failed to execute '$lspci -d 15b3: -n': $!";
-    while(<PCI>) {
-        my $devinfo = $_;
-        $devinfo =~ /(15b3:[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F])/;
-        my $devid = $&;
-        my $link_width = `$setpci -d $devid 72 | cut -b1`;
-        chomp $link_width;
-
-        print BLUE "Device ($devid):\n";
-        print "\t" . `$lspci -d $devid`;
-
-        if ( $link_width eq "8" ) {
-            print "\tLink Width: 8x\n";
-        }
-        else {
-            print "\tLink Width is not 8x\n";
-        }
-        my $link_speed = `$setpci -d $devid 72 | cut -b2`;
-        chomp $link_speed;
-        if ( $link_speed eq "1" ) {
-            print "\tLink Speed: 2.5Gb/s\n";
-        }
-        elsif ( $link_speed eq "2" ) {
-            print "\tLink Speed: 5Gb/s\n";
-        }
-        else {
-            print "\tLink Speed: Unknown\n";
+    if (open (PCI, "$lspci -d 15b3: -n|")) {
+        while(<PCI>) {
+            my $devinfo = $_;
+            $devinfo =~ /(15b3:[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F])/;
+            my $devid = $&;
+            my $link_width = `$setpci -d $devid 72 | cut -b1`;
+            chomp $link_width;
+
+            print BLUE "Device ($devid):\n";
+            print "\t" . `$lspci -d $devid`;
+
+            if ( $link_width eq "8" ) {
+                print "\tLink Width: 8x\n";
+            }
+            else {
+                print "\tLink Width is not 8x\n";
+            }
+            my $link_speed = `$setpci -d $devid 72 | cut -b2`;
+            chomp $link_speed;
+            if ( $link_speed eq "1" ) {
+                print "\tLink Speed: 2.5Gb/s\n";
+            }
+            elsif ( $link_speed eq "2" ) {
+                print "\tLink Speed: 5Gb/s\n";
+            }
+            else {
+                print "\tLink Speed: Unknown\n";
+            }
+            print "", RESET "\n";
         }
-        print "", RESET "\n";
+        close (PCI);
     }
-    close (PCI);
 }
 
 ### MAIN AREA ###
-- 
2.46.0