Deparse +sub :attr{} correctly at stmt start

2 files changed, 7 insertions, 1 deletions

diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
index 009ed31e1f..adfd9f3251 100644
--- a/lib/B/Deparse.pm
+++ b/lib/B/Deparse.pm
@@ -1439,7 +1439,9 @@ sub walk_lineseq {
 		$i += $kids[$i]->sibling->name eq "unstack" ? 2 : 1);
 	    next;
 	}
-	$expr .= $self->deparse($kids[$i], (@kids != 1)/2);
+	my $expr2 = $self->deparse($kids[$i], (@kids != 1)/2);
+	$expr2 =~ s/^sub :/+sub :/; # statement label otherwise
+	$expr .= $expr2;
 	$expr =~ s/;\n?\z//;
 	$callback->($expr, $i);
     }
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index a2065292f7..cd3b828195 100644
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -377,6 +377,10 @@ $test /= 2 if ++$test;
     ;
 }
 ####
+# anonsub attrs at statement start
+my $x = do { +sub : lvalue { my $y; } };
+my $z = do { foo: +sub : method { my $a; } };
+####
 # block with continue
 {
     234;