diff --git a/scstadmin/scst-0.9.00/lib/SCST/SCST.pm b/scstadmin/scst-0.9.00/lib/SCST/SCST.pm
index 891c8bdfc..1041e0351 100644
--- a/scstadmin/scst-0.9.00/lib/SCST/SCST.pm
+++ b/scstadmin/scst-0.9.00/lib/SCST/SCST.pm
@@ -741,8 +741,8 @@ sub driverIsVirtualCapable {
 
 	my $io = new IO::File $path, O_WRONLY;
 
-	return TRUE if (!$io);
-	return FALSE;
+	return FALSE if (!defined($io));
+	return TRUE;
 }
 
 sub targetType {