diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t
index 26ca57fe6..095232154 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t
@@ -14,11 +14,13 @@ use SCST::SCST;
 
 sub addTargets {
     my $SCST = shift;
+    my $errorString;
 
     ok(Dumper($SCST->targets('no-such-driver')),
        Dumper(undef, "targets(): Driver 'no-such-driver' is not available"));
 
-    my ($drivers, $errorString) = $SCST->drivers();
+    my $drivers;
+    ($drivers, $errorString) = $SCST->drivers();
     my %drivers = map { $_ => 1 } @{$drivers};
     ok(exists($drivers{'iscsi'}));
     ok(exists($drivers{'scst_local'}));
@@ -26,7 +28,8 @@ sub addTargets {
     my $all_hw_tgt = 1;
     for my $driver (@{$drivers}) {
 	next if $driver eq 'copy_manager';
-	my ($targets, $errorString) = $SCST->targets($driver);
+	my $targets;
+	($targets, $errorString) = $SCST->targets($driver);
 	for my $target (@{$targets}) {
 	    if ($SCST->targetType($driver, $target) !=
 		$SCST::SCST::TGT_TYPE_HARDWARE) {