]>
Commit | Line | Data |
---|---|---|
7a2e9e5f SS |
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 { | |
cdd4579c | 5 | $ok = ''; |
7a2e9e5f SS |
6 | if ($opt{o}) { |
7 | if ($opt{o} eq 'k' or $opt{o} eq 'kay') { | |
cdd4579c | 8 | - my $age = time - $patchlevel_date; |
7a2e9e5f | 9 | - if ($opt{o} eq 'k' and $age > 60 * 24 * 60 * 60 ) { |
cdd4579c MT |
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 | |
7a2e9e5f SS |
20 | unless ($opt{n}) { |
21 | $opt{S} = 1; # don't prompt for send |