Tree - rpms/perl - CentOS Git server

Blob History Raw

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