ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/PApp-SQL/SQL.xs
(Generate patch)

Comparing PApp-SQL/SQL.xs (file contents):
Revision 1.13 by root, Wed Jun 26 03:26:39 2002 UTC vs.
Revision 1.14 by root, Fri Aug 2 03:30:01 2002 UTC

… …
9#endif 9#endif
10 10
11#if (PERL_VERSION > 5) || ((PERL_VERSION == 5) && (PERL_SUBVERSION >= 6)) 11#if (PERL_VERSION > 5) || ((PERL_VERSION == 5) && (PERL_SUBVERSION >= 6))
12# define CAN_UTF8 1 12# define CAN_UTF8 1
13#endif 13#endif
14
15#define MAX_CACHED_STATEMENT_SIZE 8192
14 16
15static SV * 17static SV *
16sql_upgrade_utf8 (SV *sv) 18sql_upgrade_utf8 (SV *sv)
17{ 19{
18#if CAN_UTF8 20#if CAN_UTF8
… …
290 SvPV (sql, dc), 292 SvPV (sql, dc),
291 SvPV (get_sv ("DBI::errstr", TRUE), dd)); 293 SvPV (get_sv ("DBI::errstr", TRUE), dd));
292 294
293 sth = POPs; 295 sth = POPs;
294 296
297 if (SvLEN (sql) < MAX_CACHED_STATEMENT_SIZE)
295 lru_store (dbh, sql, sth); 298 lru_store (dbh, sql, sth);
296 } 299 }
297 300
298 PUSHMARK (SP); 301 PUSHMARK (SP);
299 EXTEND (SP, items - arg + 1); 302 EXTEND (SP, items - arg + 1);
300 PUSHs (sth); 303 PUSHs (sth);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines