From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 26 Jun 2000 18:40:14 +0000 (+0100)
Subject: [ID 20000626.007] h2xs man page contains trailing garbage
X-Git-Tag: accepted/trunk/20130322.191538~34778^2~98
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=514e70b26394e6b272960ab8b9b8b7dbb1e2c068;p=platform%2Fupstream%2Fperl.git

[ID 20000626.007] h2xs man page contains trailing garbage
Message-Id: <200006261740.SAA02740@Bagpuss.unfortu.net>

p4raw-id: //depot/cfgperl@6240
---

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 8ebe8b3..84c6923 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -834,48 +834,48 @@ my $email = 'a.u.thor@a.galaxy.far.far.away';
 
 my $revhist = '';
 $revhist = <<EOT if $opt_C;
-
-=head1 HISTORY
-
-=over 8
-
-=item $TEMPLATE_VERSION
-
-Original version; created by h2xs $H2XS_VERSION with options
-
-  @ARGS
-
-=back
-
+#
+#=head1 HISTORY
+#
+#=over 8
+#
+#=item $TEMPLATE_VERSION
+#
+#Original version; created by h2xs $H2XS_VERSION with options
+#
+#  @ARGS
+#
+#=back
+#
 EOT
 
 my $exp_doc = <<EOD;
-
-=head2 EXPORT
-
-None by default.
-
+#
+#=head2 EXPORT
+#
+#None by default.
+#
 EOD
 if (@const_names and not $opt_P) {
   $exp_doc .= <<EOD;
-=head2 Exportable constants
-
-  @{[join "\n  ", @const_names]}
-
+#=head2 Exportable constants
+#
+#  @{[join "\n  ", @const_names]}
+#
 EOD
 }
 if (defined $fdecls and @$fdecls and not $opt_P) {
   $exp_doc .= <<EOD;
-=head2 Exportable functions
-
+#=head2 Exportable functions
+#
 EOD
-  $exp_doc .= <<EOD if $opt_p;
-When accessing these functions from Perl, prefix C<$opt_p> should be removed.
-
+#  $exp_doc .= <<EOD if $opt_p;
+#When accessing these functions from Perl, prefix C<$opt_p> should be removed.
+#
 EOD
   $exp_doc .= <<EOD;
-  @{[join "\n  ", @known_fnames{@fnames}]}
-
+#  @{[join "\n  ", @known_fnames{@fnames}]}
+#
 EOD
 }
 
@@ -898,7 +898,7 @@ my $pod = <<"END" unless $opt_P;
 #unedited.
 #
 #Blah blah blah.
-#$exp_doc$revhist
+$exp_doc$revhist
 #=head1 AUTHOR
 #
 #$author, $email