devel/perl/perl-5.10.0-perlbug-tag.patch

diff -up perl-5.10.0/utils/perlbug.PL.BAD perl-5.10.0/utils/perlbug.PL
--- perl-5.10.0/utils/perlbug.PL.BAD	2007-12-21 10:31:26.000000000 -0500
+++ perl-5.10.0/utils/perlbug.PL	2007-12-21 10:36:03.000000000 -0500
@@ -27,8 +27,6 @@ open OUT, ">$file" or die "Can't create 
 open PATCH_LEVEL, "<" . catfile(updir, "patchlevel.h")
     or die "Can't open patchlevel.h: $!";
 
-my $patchlevel_date = (stat PATCH_LEVEL)[9];
-
 while (<PATCH_LEVEL>) {
     last if $_ =~ /^\s*static\s+(?:const\s+)?char.*?local_patches\[\]\s*=\s*{\s*$/;
 }
@@ -68,9 +66,8 @@ $Config{startperl}
     eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
 	if \$running_under_some_shell;
 
-my \$config_tag1 = '$extract_version - $Config{cf_time}';
+my \$config_tag1 = '$extract_version';
 
-my \$patchlevel_date = $patchlevel_date;
 my \$patch_tags = '$patch_tags';
 my \@patches = (
     $patch_desc
@@ -288,17 +285,6 @@ sub Init {
     $ok = 0;
     if ($::opt_o) {
 	if ($::opt_o eq 'k' or $::opt_o eq 'kay') {
-	    my $age = time - $patchlevel_date;
-	    if ($::opt_o eq 'k' and $age > 60 * 24 * 60 * 60 ) {
-		my $date = localtime $patchlevel_date;
-		print <<"EOF";
-"perlbug -ok" and "perlbug -nok" do not report on Perl versions which
-are more than 60 days old.  This Perl version was constructed on
-$date.  If you really want to report this, use
-"perlbug -okay" or "perlbug -nokay".
-EOF
-		exit();
-	    }
 	    # force these options
 	    unless ($::opt_n) {
 		$::opt_S = 1; # don't prompt for send
@@ -628,8 +614,8 @@ EFF
     print OUT <<EFF;
 ---
 EFF
-    print OUT "This perlbug was built using Perl $config_tag1\n",
-	    "It is being executed now by  Perl $config_tag2.\n\n"
+    print OUT "This perlbug was built using Perl $config_tag1 in the Fedora build system.\n",
+	    "It is being executed now by Perl $config_tag2.\n\n"
 	if $config_tag2 ne $config_tag1;
 
     print OUT <<EOF;
1	diff -up perl-5.10.0/utils/perlbug.PL.BAD perl-5.10.0/utils/perlbug.PL
2	--- perl-5.10.0/utils/perlbug.PL.BAD 2007-12-21 10:31:26.000000000 -0500
3	+++ perl-5.10.0/utils/perlbug.PL 2007-12-21 10:36:03.000000000 -0500
4	@@ -27,8 +27,6 @@ open OUT, ">$file" or die "Can't create
5	open PATCH_LEVEL, "<" . catfile(updir, "patchlevel.h")
6	or die "Can't open patchlevel.h: $!";
7
8	-my $patchlevel_date = (stat PATCH_LEVEL)[9];
9	-
10	while (<PATCH_LEVEL>) {
11	last if $_ =~ /^\sstatic\s+(?:const\s+)?char.?local_patches\[\]\s=\s{\s*$/;
12	}
13	@@ -68,9 +66,8 @@ $Config{startperl}
14	eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
15	if \$running_under_some_shell;
16
17	-my \$config_tag1 = '$extract_version - $Config{cf_time}';
18	+my \$config_tag1 = '$extract_version';
19
20	-my \$patchlevel_date = $patchlevel_date;
21	my \$patch_tags = '$patch_tags';
22	my \@patches = (
23	$patch_desc
24	@@ -288,17 +285,6 @@ sub Init {
25	$ok = 0;
26	if ($::opt_o) {
27	if ($::opt_o eq 'k' or $::opt_o eq 'kay') {
28	- my $age = time - $patchlevel_date;
29	- if ($::opt_o eq 'k' and $age > 60 * 24 * 60 * 60 ) {
30	- my $date = localtime $patchlevel_date;
31	- print <<"EOF";
32	-"perlbug -ok" and "perlbug -nok" do not report on Perl versions which
33	-are more than 60 days old. This Perl version was constructed on
34	-$date. If you really want to report this, use
35	-"perlbug -okay" or "perlbug -nokay".
36	-EOF
37	- exit();
38	- }
39	# force these options
40	unless ($::opt_n) {
41	$::opt_S = 1; # don't prompt for send
42	@@ -628,8 +614,8 @@ EFF
43	print OUT <<EFF;
44	---
45	EFF
46	- print OUT "This perlbug was built using Perl $config_tag1\n",
47	- "It is being executed now by Perl $config_tag2.\n\n"
48	+ print OUT "This perlbug was built using Perl $config_tag1 in the Fedora build system.\n",
49	+ "It is being executed now by Perl $config_tag2.\n\n"
50	if $config_tag2 ne $config_tag1;
51
52	print OUT <<EOF;
admin@fedoraproject.org	ViewVC Help
Powered by ViewVC 1.1.2