Mercurial > hg > nginx

comparison src/http/modules/perl/ngx_http_perl_module.c @ 874:98afa13ea7e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add comment
author Igor Sysoev <igor@sysoev.ru>
date Sun, 26 Nov 2006 16:56:41 +0000
parents f92ad15c2db1
children 82adc19b4b4d
comparison
equal deleted inserted replaced
873:f92ad15c2db1 874:98afa13ea7e5
692 } 692 }
693 } 693 }
694 694
695 if (ngx_strncmp(p, "sub ", 4) == 0 || ngx_strncmp(p, "use ", 4) == 0) { 695 if (ngx_strncmp(p, "sub ", 4) == 0 || ngx_strncmp(p, "use ", 4) == 0) {
696 *sv = eval_pv((char *) p, FALSE); 696 *sv = eval_pv((char *) p, FALSE);
697
698 /* eval_pv() does not set ERRSV on failure */
699
697 return; 700 return;
698 } 701 }
699 702
700 *sv = NULL; 703 *sv = NULL;
701 } 704 }