diff options
| author | Karl Williamson <khw@cpan.org> | 2020-04-10 08:43:14 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-07-17 22:35:50 -0600 |
| commit | 23f1d933a1481b0b8616a3f29127a98c527cf0c7 (patch) | |
| tree | b6f88d0358215e13f955d1f9dc4bf79952ee3dd5 /lib | |
| parent | 1e96397227cc347d8d45ff6fc9b7a97015288ecb (diff) | |
| download | perl-23f1d933a1481b0b8616a3f29127a98c527cf0c7.tar.gz | |
B/Deparse.pm: White-space only
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/B/Deparse.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm index 6f20e8a484..2317aa1498 100644 --- a/lib/B/Deparse.pm +++ b/lib/B/Deparse.pm @@ -2472,7 +2472,7 @@ sub unop { return $self->maybe_parens( $self->keyword($name) . " $kid", $cx, 16 ); - } + } return $self->maybe_parens_unop($name, $kid, $cx); } else { return $self->maybe_parens( @@ -2512,7 +2512,7 @@ sub pp_each { unop(@_, "each") } sub pp_values { unop(@_, "values") } sub pp_keys { unop(@_, "keys") } { no strict 'refs'; *{"pp_r$_"} = *{"pp_$_"} for qw< keys each values >; } -sub pp_boolkeys { +sub pp_boolkeys { # no name because its an optimisation op that has no keyword unop(@_,""); } |