aniani/elinks
1
0
Fork 0
mirror of https://github.com/rkd77/elinks.git synced 2024-12-04 14:46:47 -05:00
Code

Fix compilation of perl hooks

Browse Source 
It complains here that n_a might be used uninitialized and POPpx doesn't
set anything like it.
This commit is contained in:
Petr Baudis 2006-06-30 00:54:06 +02:00 committed by Petr Baudis
parent 9412cc77f0
commit 0f8ee055db
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/scripting/perl/hooks.c
View File

@ -44,11 +44,10 @@ do_script_hook_goto_url(struct session *ses, unsigned char **url)
if (SvTRUE(ERRSV)) count = 0; /* FIXME: error message ? */
SPAGAIN;
if (count == 1) {
STRLEN n_a; /* Used by POPpx macro. */
unsigned char *new_url = POPpx;
if (new_url) {
unsigned char *n = memacpy(new_url, n_a);
unsigned char *n = stracpy(new_url);
if (n) {
mem_free_set(url, n);
@ -90,11 +89,10 @@ do_script_hook_follow_url(unsigned char **url)
if (SvTRUE(ERRSV)) count = 0; /* FIXME: error message ? */
SPAGAIN;
if (count == 1) {
STRLEN n_a; /* Used by POPpx macro. */
unsigned char *new_url = POPpx;
if (new_url) {
unsigned char *n = memacpy(new_url, n_a);
unsigned char *n = stracpy(new_url);
if (n) {
mem_free_set(url, n);
@ -137,11 +135,10 @@ do_script_hook_pre_format_html(unsigned char *url, struct cache_entry *cached,
if (SvTRUE(ERRSV)) count = 0; /* FIXME: error message ? */
SPAGAIN;
if (count == 1) {
STRLEN n_a; /* Used by POPpx macro. */
unsigned char *new_html = POPpx;
if (new_html) {
int len = n_a;
int len = strlen(new_html);
add_fragment(cached, 0, new_html, len);
normalize_cache_entry(cached, len);
@ -188,10 +185,9 @@ do_script_hook_get_proxy(unsigned char **new_proxy_url, unsigned char *url)
(void) POPs;
mem_free_set(new_proxy_url, NULL);
} else {
STRLEN n_a; /* Used by POPpx macro. */
unsigned char *new_url = POPpx;
mem_free_set(new_proxy_url, memacpy(new_url, n_a));
mem_free_set(new_proxy_url, stracpy(new_url));
}
}