From 3a5d2ff6cca957b6cb3fdd8ffeaae6414145f6bb Mon Sep 17 00:00:00 2001
From: "Zane C. Bowers-Hadley" <vvelox@vvelox.net>
Date: Thu, 3 Oct 2024 11:46:20 -0500
Subject: [PATCH] "Failed in segment" is now considered a read failure for
 smart (#548)

* add check for "Failed in segment" for self test

* minor version bump
---
 snmp/smart-v1 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/snmp/smart-v1 b/snmp/smart-v1
index 545282b99..935ed7a62 100755
--- a/snmp/smart-v1
+++ b/snmp/smart-v1
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-#Copyright (c) 2023, Zane C. Bowers-Hadley
+#Copyright (c) 2024, Zane C. Bowers-Hadley
 #All rights reserved.
 #
 #Redistribution and use in source and binary forms, with or without modification,
@@ -113,7 +113,7 @@ my $useSN = 1;
 $Getopt::Std::STANDARD_HELP_VERSION = 1;
 
 sub main::VERSION_MESSAGE {
-	print "SMART SNMP extend 0.3.1\n";
+	print "SMART SNMP extend 0.3.2\n";
 }
 
 sub main::HELP_MESSAGE {
@@ -784,6 +784,8 @@ foreach my $line (@disks) {
 		$IDs{'interrupted'} = scalar @interrupted;
 		my @read_failure = grep( /read failure/, @outputA );
 		$IDs{'read_failure'} = scalar @read_failure;
+		my @read_failure2 = grep( /Failed in segment/, @outputA );
+		$IDs{'read_failure'} = $IDs{'read_failure'} + scalar @read_failure2;
 		my @unknown_failure = grep( /unknown failure/, @outputA );
 		$IDs{'unknown_failure'} = scalar @unknown_failure;
 		my @extended = grep( /\d.*\ ([Ee]xtended|[Ll]ong).*(?![Dd]uration)/, @outputA );