DBD-Unify

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

magic_regdatum_get|5.006000||Viu
magic_regdatum_set|5.006001||Viu
magic_scalarpack|5.009001||Viu
magic_set|5.003007||Viu
magic_set_all_env|5.004004||Viu
magic_setarylen|5.003007||Viu
magic_setcollxfrm|5.004000||Viu
magic_setdbline|5.003007||Viu
magic_setdebugvar|5.021005||Viu
magic_setdefelem|5.004000||Viu
magic_setenv|5.003007||Viu
magic_sethint|5.009004||Vi
magic_sethint_feature|5.031007||Viu
magic_setisa|5.003007||Viu
magic_setlvref|5.021005||Viu
magic_setmglob|5.003007||Viu
magic_setnkeys|5.003007||Viu
magic_setnonelem|5.027009||Viu
magic_setpack|5.003007||Viu
magic_setpos|5.003007||Viu
magic_setregexp|5.008001||Viu

ppport.h  view on Meta::CPAN

my_lstat_flags|5.013003||cViu
my_memrchr|5.027006||Vniu
my_mkostemp_cloexec|||niu
my_mkostemp|||niu
my_mkstemp_cloexec|||niu
my_mkstemp|||niu
my_nl_langinfo|5.027006||Vniu
my_pclose|5.003007|5.003007|u
my_popen|5.003007|5.003007|u
my_popen_list|5.007001|5.007001|u
my_setenv|5.003007|5.003007|
my_snprintf|5.009004||pvVn
my_socketpair|5.007003|5.007003|nu
my_sprintf|5.009003|5.003007|pdn
my_stat|5.013003||Viu
my_stat_flags|5.013003||cViu
my_strerror|5.021001||Viu
my_strftime|5.007002||V
my_strlcat|5.009004|5.003007|pn
my_strlcpy|5.009004|5.003007|pn
my_strnlen|5.027006|5.003007|pn

t/15-uni-fail.t  view on Meta::CPAN

    EXEC SQL CONNECT;
    (void)printf ("1st connect, SQLCODE = %d\n", SQLCODE);
    if (SQLCODE) (void)printf ("%s\n", ufchmsg (SQLCODE, &ustatus));

    EXEC SQL DISCONNECT;
    (void)printf ("1st disconnect, SQLCODE = %d\n", SQLCODE);
    if (SQLCODE) (void)printf ("%s\n", ufchmsg( SQLCODE, &ustatus));

    /* now, remove the UNIFY variable */
    if (unsetenv ("UNIFY")) perror ("unsetenv");

    /* will segfault within CONNECT:
	typical (gdb) backtrace
	#0  0x080b091f in mkcffnm ()
	#1  0x080ea325 in bldcnf ()
	#2  0x080b00bb in uinicnf ()
	#3  0x080b0322 in iniconf ()
	#4  0x08050263 in feini ()
	#5  0x0804a3b5 in crsini ()
	#6  0x0804c203 in sqlopdb ()
	#7  0x0804a1b7 in main ()
       it will not segfault if you remove the "unsetenv" call above.
       it will also not segfault if you do not define UNIFY in the environment
         before you start this program (in that case you get SQLCODE = -16 on
	  each CONNECT)
     */
    EXEC SQL CONNECT;
    (void)printf ("2nd connect, SQLCODE = %d\n", SQLCODE);
    if (SQLCODE) (void)printf ("%s\n", ufchmsg (SQLCODE, &ustatus));

    EXEC SQL DISCONNECT;
    (void)printf ("2nd disconnect, SQLCODE = %d\n", SQLCODE );

t/27-uni-max.t  view on Meta::CPAN

    $ENV{MAXSCAN}       = $max_sth + 1;
    $ENV{MXOPENCURSORS} = 2 * $max_sth;

    $txx = "xx_$$";

    if (exists $ENV{DBD_UNIFY_SKIP_27}) {
	plan skip_all => "Skip max tests on user request";
	done_testing;
	}
    print STDERR "# To disable future max tests: setenv DBD_UNIFY_SKIP_27 1\n";

    use_ok ("DBI");
    }

# =============================================================================

my $dbh;

ok ($dbh = DBI->connect ("dbi:Unify:"), "connect");