summaryrefslogtreecommitdiff
path: root/utils/h2xs.PL
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-08-12 08:11:08 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-08-12 08:11:08 +0000
commita42b7cd7ba47cae246abc5cd8f9dc7ba948aaa55 (patch)
tree5fa4da5fa813a85e64b6f6109990fb2d8ef90039 /utils/h2xs.PL
parent9d1ce744c6b1f6545853185bcc1688e9343cccff (diff)
downloadperl-a42b7cd7ba47cae246abc5cd8f9dc7ba948aaa55.tar.gz
The Debian people have expressed a wish for the boilerplate
being specific about the Perl version; patch from Nicholas Clark. p4raw-id: //depot/perl@20632
Diffstat (limited to 'utils/h2xs.PL')
-rw-r--r--utils/h2xs.PL26
1 files changed, 17 insertions, 9 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 6e1f297a62..c21a724e72 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -1232,7 +1232,7 @@ print PM <<"END";
__END__
END
-my ($email,$author);
+my ($email,$author,$licence);
eval {
my $username;
@@ -1248,6 +1248,14 @@ eval {
$author ||= "A. U. Thor";
$email ||= 'a.u.thor@a.galaxy.far.far.away';
+$licence = sprintf << "DEFAULT", $^V;
+Copyright (C) ${\(1900 + (localtime) [5])} by $author
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version %vd or,
+at your option, any later version of Perl 5 you may have available.
+DEFAULT
+
my $revhist = '';
$revhist = <<EOT if $opt_C;
#
@@ -1306,6 +1314,12 @@ if ($opt_x && $opt_a) {
while ($name, $struct) = each %structs;
}
+# Prefix the default licence with hash symbols.
+# Is this just cargo cult - it seems that the first thing that happens to this
+# block is that all the hashes are then s///g out.
+my $licence_hash = $licence;
+$licence_hash =~ s/^/#/gm;
+
my $pod = <<"END" unless $opt_P;
## Below is stub documentation for your module. You'd better edit it!
#
@@ -1344,10 +1358,7 @@ $exp_doc$meth_doc$revhist
#
#=head1 COPYRIGHT AND LICENSE
#
-#Copyright ${\(1900 + (localtime) [5])} by $author
-#
-#This library is free software; you can redistribute it and/or modify
-#it under the same terms as Perl itself.
+$licence_hash
#
#=cut
END
@@ -2048,10 +2059,7 @@ COPYRIGHT AND LICENCE
Put the correct copyright and licence information here.
-Copyright (C) $thisyear $author
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
+$licence
_RMEND_
close(RM) || die "Can't close $ext$modpname/README: $!\n";