my $d = 2.7;
my $flags_prior = flag_status($d);

foo($d);

my $flags_after = flag_status($d);
die "foo() altered its argument's numeric flags"
  if($flags_prior != $flags_after);