Same comment as above:

```perl
return $fh =~ m!\s*$self->{devname}\s!m;
```