# 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 1173 "../blib/lib/Sybase/Sybperl.pm (autosplit into ../blib/lib/auto/Sybase/Sybperl/dbrpcinit.al)"
sub dbrpcinit
{
    my(@param) = @_;
    my($dbproc);

    if(@param == 3)
    {
	$dbproc = shift(@param);
    }
    else
    {
	$dbproc = $default_db;
    }

    $dbproc->dbrpcinit(@param);
}

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