sub parent {
  my $valueOnly;
  my $needsUpdates;

  child ($valueOnly, \$needsUpdates);
}

sub child {
  my ($valueOnly, $needsUpdates) = @_;

  $$needsUpdate = $valueOnly; # was: $needsUpdate = $valueOnly;
}