From cpan@zoffix.com

`perldoc -f do` for v5.26.0 as well as current https://perldoc.perl.org/functions/do.html as the very last code example list this code​:

  for $file ("/share/prog/defaults.rc",
  "$ENV{HOME}/.someprogrc")
  {
  unless ($return = do $file) {
  warn "couldn't parse $file​: $@​" if $@​;
  warn "couldn't do $file​: $!" unless defined $return;
  warn "couldn't run $file" unless $return;
  }
  }

The last conditional (`unless $return) is not necessary as that entire block is already guarded by `unless ($return = ...)`

From @jkeenan

On Fri, 22 Jun 2018 18​:25​:59 GMT, cpan@​zoffix.com wrote​:

`perldoc -f do` for v5.26.0 as well as current
https://perldoc.perl.org/functions/do.html as the very last code
example list this code​:

for $file ("/share/prog/defaults.rc",
"$ENV{HOME}/.someprogrc")
{
unless ($return = do $file) {
warn "couldn't parse $file​: $@​" if $@​;
warn "couldn't do $file​: $!" unless defined $return;
warn "couldn't run $file" unless $return;
}
}

The last conditional (`unless $return) is not necessary as that entire
block is already guarded by `unless ($return = ...)`

cc-ing the original committer for comment​:

#####
a9a5a0d (Vincent Pit 2009-11-21 22​:07​:31 +0100
#####
--
James E Keenan (jkeenan@​cpan.org)

The RT System itself - Status changed from 'new' to 'open'