gistfile1.txt

ひつようない

    my ($scheme, $driver, $attr_string, $attr_hash, $driver_dsn) = DBI->parse_dsn($dsn);
    if ( 0 && $driver eq 'mysql' ) {
        my %driver_dsn = map {
            if ( $_ !~ /=/ ) {
                ( $_, undef );
            }
            else {
                split /=/, $_, 2;
            }
        } split /;/, $driver_dsn;
        $driver_dsn{mysql_connect_timeout} = 4
            if ! exists $driver_dsn{mysql_connect_timeout};
        $driver_dsn{mysql_enable_utf8} = 1;
        $driver_dsn{mysql_auto_reconnect} = 0;
        $dsn = sprintf "%s:%s%s:%s",
            $scheme,
            $driver,
            $attr_string ? "(" . $attr_string . ")" : "",
            join ";", map {
                defined $driver_dsn{$_} ? "$_=$driver_dsn{$_}" : $_
            } keys %driver_dsn;
    }