This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlapi: Move 'experimental' warning to front of entries
[perl5.git] / autodoc.pl
index 6fea970..59dc6f0 100644 (file)
@@ -178,8 +178,8 @@ future release of Perl.  Do not use it for new code; remove it from
 existing code.\n\n$docs";
     }
     else {
-        $docs .= "NOTE: this function is experimental and may change or be
-removed without notice.\n\n" if $flags =~ /x/;
+        $docs = "\n\nNOTE: this function is experimental and may change or be
+removed without notice.\n\n$docs" if $flags =~ /x/;
     }
     $docs .= "NOTE: the perl_ form of this function is deprecated.\n\n"
        if $flags =~ /p/;