This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
B/Deparse.pm: White-space only
authorKarl Williamson <khw@cpan.org>
Fri, 10 Apr 2020 14:43:14 +0000 (08:43 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 18 Jul 2020 04:35:50 +0000 (22:35 -0600)
lib/B/Deparse.pm

index 6f20e8a..2317aa1 100644 (file)
@@ -2472,7 +2472,7 @@ sub unop {
            return $self->maybe_parens(
                        $self->keyword($name) . " $kid", $cx, 16
                   );
            return $self->maybe_parens(
                        $self->keyword($name) . " $kid", $cx, 16
                   );
-       }   
+       }
        return $self->maybe_parens_unop($name, $kid, $cx);
     } else {
        return $self->maybe_parens(
        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_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(@_,"");
 }
     # no name because its an optimisation op that has no keyword
     unop(@_,"");
 }