This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The debugging aid #19182 didn't.
[perl5.git] / ext / B / t / deparse.t
index ce133d0..f60d913 100644 (file)
@@ -25,7 +25,7 @@ print "ok " . $i++ . "\n";
 
 # Tell B::Deparse about our ambient pragmas
 { my ($hint_bits, $warning_bits);
- BEGIN {($hint_bits, $warning_bits) = ($^H, ${^WARNING_BITS})}
+ BEGIN { ($hint_bits, $warning_bits) = ($^H, ${^WARNING_BITS}); }
  $deparse->ambient_pragmas (
      hint_bits    => $hint_bits,
      warning_bits => $warning_bits,