From faa2e13cb61f645cc3e545001fe0a48915bdf076 Mon Sep 17 00:00:00 2001
From: Mark Buechler <mark.buechler@gmail.com>
Date: Tue, 7 Dec 2010 17:49:15 +0000
Subject: [PATCH] - Properly detect when SCST isn't loaded.

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@2969 d57e44dd-8a1f-0410-8b47-8ef2f437770f
---
 scstadmin/scstadmin.sysfs/scst-0.9.00/lib/SCST/SCST.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scstadmin/scstadmin.sysfs/scst-0.9.00/lib/SCST/SCST.pm b/scstadmin/scstadmin.sysfs/scst-0.9.00/lib/SCST/SCST.pm
index 447ff493a..83817a5ba 100644
--- a/scstadmin/scstadmin.sysfs/scst-0.9.00/lib/SCST/SCST.pm
+++ b/scstadmin/scstadmin.sysfs/scst-0.9.00/lib/SCST/SCST.pm
@@ -225,8 +225,8 @@ sub new {
 
 	my $scstVersion = $self->scstVersion();
 
-	die("Failed to obtain SCST version information. Is the scst module loaded?\n")
-	  if ($scstVersion == -1);
+	die("Failed to obtain SCST version information. Are the SCST modules loaded?\n")
+	  if (!defined($scstVersion));
 
 	my($major, $minor, $release) = split(/\./, $scstVersion, 3);
 	($release, undef) = split(/\-/, $release) if ($release =~ /\-/);