Ticket #616: hddtemp_smartctl.in-env.patch

hddtemp_smartctl.in

@@ -141 +141 @@
 foreach (@drives) {
   my $dev;
   $dev = $_ =~ /(.*)(?:_\d+)/ ? $1 : $_;
+  my $envdev = $_;
+  $envdev =~ s/-/_/g;
 
   my $fulldev = '/dev/';
   $fulldev .= 'rdsk/' if $^O eq 'solaris';
-  $fulldev .= exists $ENV{'dev_'.$_} ? $ENV{'dev_'.$_} : $dev;
+  $fulldev .= exists $ENV{'dev_'.$envdev} ? $ENV{'dev_'.$envdev} : $dev;
 
   # Avoid spinning up sleeping disks
   next if `hdparm -C $fulldev 2>/dev/null` =~ /standby/;
 
   my $cmd = $smartctl.' -A ';
-  $cmd .= $ENV{'args_'.$_}.' ' if exists $ENV{'args_'.$_};
-  $cmd .= '-d '.$ENV{'type_'.$_}.' ' if exists $ENV{'type_'.$_};
+  $cmd .= $ENV{'args_'.$envdev}.' ' if exists $ENV{'args_'.$envdev};
+  $cmd .= '-d '.$ENV{'type_'.$envdev}.' ' if exists $ENV{'type_'.$envdev};
   $cmd .= $fulldev;
 
   my $output = `$cmd`;