--- DBIx-Class/lib/DBIx/Class/StartupCheck.pm-	2008-06-13 15:43:59 +0300

+++ DBIx-Class/lib/DBIx/Class/StartupCheck.pm	2008-06-13 15:50:51 +0300

@@ -2,31 +2,7 @@

 BEGIN {

-    { package TestRHBug; use overload bool => sub { 0 } }

-    sub _has_bug_34925 {

-	my %thing;

-	my $r1 = \%thing;

-	my $r2 = \%thing;

-	bless $r1 => 'TestRHBug';

-	return !!$r2;

-    }

-

-    sub _possibly_has_bad_overload_performance {

-	return $] < 5.008009 && ! _has_bug_34925();

-    }

-

-    unless ($ENV{DBIC_NO_WARN_BAD_PERL}) {

-	if (_possibly_has_bad_overload_performance()) {

-	    print STDERR "\n\nWARNING: " . __PACKAGE__ . ": This version of Perl is likely to exhibit\n" .

-		"extremely slow performance for certain critical operations.\n" .

-		"Please consider recompiling Perl.  For more information, see\n" .

-		"https://bugzilla.redhat.com/show_bug.cgi?id=196836 and/or\n" .

-		"http://lists.scsys.co.uk/pipermail/dbix-class/2007-October/005119.html.\n" .

-		"You can suppress this message by setting DBIC_NO_WARN_BAD_PERL=1 in your\n" .

-		"environment.\n\n";

-	}

-    }

 }

 =head1 NAME