diff --git a/scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm b/scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm index 3435ad3ae..164eda796 100644 --- a/scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm +++ b/scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm @@ -3591,11 +3591,12 @@ sub targetGroupTargetAttributes { my $group = shift; my $tgroup = shift; my $tgt = shift; + my $local_tgt = shift; my %attributes; my $pHandle = new IO::Handle; my $_path = make_path(SCST_DEV_GROUP_DIR(), $group, SCST_DG_TGROUPS, $tgroup, $tgt); - if (-l $_path) { + if (-l $_path && !$local_tgt) { return \%attributes; } diff --git a/scstadmin/scstadmin.sysfs/scstadmin b/scstadmin/scstadmin.sysfs/scstadmin index b16a53501..8c368d41e 100755 --- a/scstadmin/scstadmin.sysfs/scstadmin +++ b/scstadmin/scstadmin.sysfs/scstadmin @@ -3754,7 +3754,7 @@ sub listTargetGroupTargetAttributes { my $tgt = shift; my $nonkey = shift; - my $attributes = $SCST->targetGroupTargetAttributes($group, $tgroup, $tgt); + my $attributes = $SCST->targetGroupTargetAttributes($group, $tgroup, $tgt, TRUE); return TRUE if issueWarning($SCST->errorString()); @@ -4082,7 +4082,7 @@ sub setTargetGroupTargetAttributes { my $error = "\t-> WARNING: Target '$group/$tgroup/$tgt' lacks the settable attribute '%s', ignoring.\n\n"; - my $_attributes = $SCST->targetGroupTargetAttributes($group, $tgroup, $tgt); + my $_attributes = $SCST->targetGroupTargetAttributes($group, $tgroup, $tgt, TRUE); return TRUE if issueWarning($SCST->errorString());