$_ = $1 if /#.*pod\s*=\s*(\S+)/;
my ($where, $what) = m|^(.*?)/(\S+)|;
runpod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
- if (($where, $what) = m|#.*link\s*=\s*(\S+)/(\S+)| {
+ if (($where, $what) = m|#.*link\s*=\s*(\S+)/(\S+)|) {
runpod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
}
}