X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/da5a0da22ef5f5dd64e1fcdcac2c5ed1c0398085..d40e888a44ac45f4685c8ebcc49d751e42612ffe:/autodoc.pl

diff --git a/autodoc.pl b/autodoc.pl
index 788dc35..a31192e 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -126,11 +126,11 @@ DOC:
 	    my ($embed_where, $inline_where);
 	    my ($embed_may_change, $inline_may_change);
 
-	    my $docref = delete $funcflags{$name};
-	    if ($docref and %$docref) {
-		$embed_where = $docref->{flags} =~ /A/ ? 'api' : 'guts';
-		$embed_may_change = $docref->{flags} =~ /M/;
-                $flags .= 'D' if $docref->{flags} =~ /D/;
+	    my $embed_docref = delete $funcflags{$name};
+	    if ($embed_docref and %$embed_docref) {
+		$embed_where = $embed_docref->{flags} =~ /A/ ? 'api' : 'guts';
+		$embed_may_change = $embed_docref->{flags} =~ /M/;
+                $flags .= 'D' if $embed_docref->{flags} =~ /D/;
 	    } else {
 		$missing{$name} = $file;
 	    }
@@ -158,8 +158,8 @@ DOC:
 	    } else {
 		$inline_where = $embed_where;
 		$flags .= 'x' if $embed_may_change;
-		@args = @{$docref->{args}};
-		$ret = $docref->{retval};
+		@args = @{$embed_docref->{args}};
+		$ret = $embed_docref->{retval};
 	    }
 
 	    if (exists $docs{$inline_where}{$curheader}{$name}) {