Blame perl-5.8.8-perlbug-tag-A.patch
|
jvdias |
766b4a2 |
--- perl-5.8.8-RC1/utils/perlbug.PL.perlbug 2006-01-03 14:07:41.000000000 -0500
|
|
jvdias |
766b4a2 |
+++ perl-5.8.8-RC1/utils/perlbug.PL 2006-01-20 14:33:26.000000000 -0500
|
|
jvdias |
766b4a2 |
@@ -71,7 +71,7 @@
|
|
jvdias |
766b4a2 |
eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
|
|
jvdias |
766b4a2 |
if \$running_under_some_shell;
|
|
jvdias |
766b4a2 |
|
|
jvdias |
766b4a2 |
-my \$config_tag1 = '$extract_version - $Config{cf_time}';
|
|
jvdias |
766b4a2 |
+my \$config_tag1 = '$extract_version';
|
|
jvdias |
766b4a2 |
|
|
jvdias |
766b4a2 |
my \$patchlevel_date = $patchlevel_date;
|
|
jvdias |
766b4a2 |
my \$patch_tags = '$patch_tags';
|
|
jvdias |
766b4a2 |
@@ -287,18 +287,9 @@
|
|
jvdias |
766b4a2 |
# OK - send "OK" report for build on this system
|
|
jvdias |
766b4a2 |
$ok = 0;
|
|
jvdias |
766b4a2 |
if ($::opt_o) {
|
|
jvdias |
766b4a2 |
- if ($::opt_o eq 'k' or $::opt_o eq 'kay') {
|
|
jvdias |
766b4a2 |
- my $age = time - $patchlevel_date;
|
|
jvdias |
766b4a2 |
- if ($::opt_o eq 'k' and $age > 60 * 24 * 60 * 60 ) {
|
|
jvdias |
766b4a2 |
- my $date = localtime $patchlevel_date;
|
|
jvdias |
766b4a2 |
- print <<"EOF";
|
|
jvdias |
766b4a2 |
-"perlbug -ok" and "perlbug -nok" do not report on Perl versions which
|
|
jvdias |
766b4a2 |
-are more than 60 days old. This Perl version was constructed on
|
|
jvdias |
766b4a2 |
-$date. If you really want to report this, use
|
|
jvdias |
766b4a2 |
-"perlbug -okay" or "perlbug -nokay".
|
|
jvdias |
766b4a2 |
-EOF
|
|
jvdias |
766b4a2 |
- exit();
|
|
jvdias |
766b4a2 |
- }
|
|
jvdias |
766b4a2 |
+ #
|
|
jvdias |
766b4a2 |
+ # Red Hat modification: remove -ok / -nok refusal to report due to age
|
|
jvdias |
766b4a2 |
+ #
|
|
jvdias |
766b4a2 |
# force these options
|
|
jvdias |
766b4a2 |
unless ($::opt_n) {
|
|
jvdias |
766b4a2 |
$::opt_S = 1; # don't prompt for send
|
|
jvdias |
766b4a2 |
@@ -605,7 +596,7 @@
|
|
jvdias |
766b4a2 |
print OUT <
|
|
jvdias |
766b4a2 |
---
|
|
jvdias |
766b4a2 |
EFF
|
|
jvdias |
766b4a2 |
- print OUT "This perlbug was built using Perl $config_tag1\n",
|
|
jvdias |
766b4a2 |
+ print OUT "This perlbug was built using Perl $config_tag1 in the Red Hat build system.\n",
|
|
jvdias |
766b4a2 |
"It is being executed now by Perl $config_tag2.\n\n"
|
|
jvdias |
766b4a2 |
if $config_tag2 ne $config_tag1;
|
|
jvdias |
766b4a2 |
|