perl/patches/perl-perlbug-tag.patch

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