#!/usr/bin/perl -w

use strict;

sub foo {
  if (@_) {
    return do { my $dummy; 1; };
   } else {
    return 0;
  }
}

# let's just remove the else

sub bar {
  if (@_) {
     return do { my $dummy; 1; };
  }
  return 0;
}

print foo().' '.foo('baz')."\n"; # that was expected
print bar().' '.bar('baz')."\n"; # undef