Blame SOURCES/perl-perlbug-tag.patch

9572a7
diff -up perl-5.16.0-RC2/utils/perlbug.PL.fedora perl-5.16.0-RC2/utils/perlbug.PL
9572a7
--- perl-5.16.0-RC2/utils/perlbug.PL.fedora	2012-05-16 16:15:51.000000000 +0200
9572a7
+++ perl-5.16.0-RC2/utils/perlbug.PL	2012-05-16 16:18:36.018894464 +0200
9572a7
@@ -271,17 +271,6 @@ sub Init {
9572a7
     $ok = '';
9572a7
     if ($opt{o}) {
9572a7
 	if ($opt{o} eq 'k' or $opt{o} eq 'kay') {
9572a7
-	    my $age = time - $patchlevel_date;
9572a7
-	    if ($opt{o} eq 'k' and $age > 60 * 24 * 60 * 60 ) {
9572a7
-		my $date = localtime $patchlevel_date;
9572a7
-		print <<"EOF";
9572a7
-"perlbug -ok" and "perlbug -nok" do not report on Perl versions which
9572a7
-are more than 60 days old.  This Perl version was constructed on
9572a7
-$date.  If you really want to report this, use
9572a7
-"perlbug -okay" or "perlbug -nokay".
9572a7
-EOF
9572a7
-		exit();
9572a7
-	    }
9572a7
 	    # force these options
9572a7
 	    unless ($opt{n}) {
9572a7
 		$opt{S} = 1; # don't prompt for send