# NOTE: Derived from ../blib/lib/Sybase/Sybperl.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Sybase::Sybperl;

#line 734 "../blib/lib/Sybase/Sybperl.pm (autosplit into ../blib/lib/auto/Sybase/Sybperl/bcp_readfmt.al)"
sub bcp_readfmt
{
    my(@params) = @_;
    my($ret);
    
    if(@params == 1)
    {
	if(!defined($default_db))
	{
	    $default_db = &dblogin();
	    $DBprocs{$default_db} = $default_db;
	    foreach (@AttKeys) {
		$default_db->{$_} = $Sybase::Sybperl::Attribs::att{$_};
	    }
	}
	unshift(@params, $default_db);
    }
    $params[0] = $default_db if(!$params[0]);
    $ret = $params[0]->bcp_readfmt($params[1]);
}

# end of Sybase::Sybperl::bcp_readfmt
1;
