# 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 593 "../blib/lib/Sybase/Sybperl.pm (autosplit into ../blib/lib/auto/Sybase/Sybperl/bcp_init.al)"
#####
# bcp routines
####

sub bcp_init
{
    my(@params) = @_;
    my($dbproc, $ret);
    
    if(@params == 4)
    {
	croak("dbproc is undefined.") if(!defined($default_db));
	$dbproc = $default_db;
    }
    else
    {
	$dbproc = shift(@params);
    }
    $ret = $dbproc->bcp_init(@params);
}

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