only substr if layers returns
This commit is contained in:
@@ -78,8 +78,10 @@ sub layers {
|
|||||||
my $dlink = shift;
|
my $dlink = shift;
|
||||||
|
|
||||||
my $layers = $dlink->SUPER::layers();
|
my $layers = $dlink->SUPER::layers();
|
||||||
|
if ($layers) {
|
||||||
substr $layers, 5, 1, "1";
|
substr $layers, 5, 1, "1";
|
||||||
substr $layers, 6, 1, "1";
|
substr $layers, 6, 1, "1";
|
||||||
|
}
|
||||||
|
|
||||||
return $layers;
|
return $layers;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user