[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[GNUnet-SVN] [libextractor-perl] 07/08: address@hidden: rafl | 2005-11-1
From: |
gnunet |
Subject: |
[GNUnet-SVN] [libextractor-perl] 07/08: address@hidden: rafl | 2005-11-13 22:51:22 +0100 * Fixed a segfault |
Date: |
Sat, 13 Apr 2019 13:48:37 +0200 |
This is an automated email from the git hooks/post-receive script.
ng0 pushed a commit to branch master
in repository libextractor-perl.
commit 3210118c97bcf55aef60cfcf3334fe5c79220846
Author: Florian Ragwitz <address@hidden>
AuthorDate: Sun Nov 13 21:32:44 2005 +0000
address@hidden: rafl | 2005-11-13 22:51:22 +0100
* Fixed a segfault
---
xs/Extract.xs | 17 ++++++++++++++---
1 file changed, 14 insertions(+), 3 deletions(-)
diff --git a/xs/Extract.xs b/xs/Extract.xs
index 9298296..4eb44af 100644
--- a/xs/Extract.xs
+++ b/xs/Extract.xs
@@ -139,10 +139,21 @@ getLibraries(extractor)
EXTRACTOR_ExtractorList* list = NULL;
EXTRACTOR_ExtractorList* i = NULL;
PPCODE:
- list =
SvEXTRACTOR_ExtractorList(pextract_get_extractor_list(extractor));
- for (i = list; i != NULL; i = i->next) {
+ list =
SvEXTRACTOR_ExtractorList_ornull(pextract_get_extractor_list(extractor));
+ i = list;
+ while (i != NULL) {
+ if (!i->libname)
+ continue;
+
XPUSHs(sv_2mortal(newSVpv(i->libname,
strlen(i->libname))));
- XPUSHs(sv_2mortal(newSVpv(i->options,
strlen(i->options))));
+
+ if (i->options) {
+ XPUSHs(sv_2mortal(newSVpv(i->options,
strlen(i->options))));
+ } else {
+ XPUSHs(&PL_sv_undef);
+ }
+
+ i = i->next;
}
#BOOT:
--
To stop receiving notification emails like this one, please contact
address@hidden
- [GNUnet-SVN] [libextractor-perl] branch master created (now 18437ed), gnunet, 2019/04/13
- [GNUnet-SVN] [libextractor-perl] 01/08: i, gnunet, 2019/04/13
- [GNUnet-SVN] [libextractor-perl] 04/08: address@hidden: rafl | 2005-11-13 13:15:52 +0100 * Move typemap to xs/., gnunet, 2019/04/13
- [GNUnet-SVN] [libextractor-perl] 05/08: address@hidden: rafl | 2005-11-13 13:30:32 +0100 * Added an init method which is called after object construction to initialize the extractor_list value in the object hash. * Adjusted loadDefaultLibraries() to reflect the changes above., gnunet, 2019/04/13
- [GNUnet-SVN] [libextractor-perl] 07/08: address@hidden: rafl | 2005-11-13 22:51:22 +0100 * Fixed a segfault,
gnunet <=
- [GNUnet-SVN] [libextractor-perl] 06/08: address@hidden: rafl | 2005-11-13 21:43:23 +0100 * Fixed some leaks, cleaned up a bit. * Functions that modify an extractor list don't have a return value anymore because they do this by reference, not by value., gnunet, 2019/04/13
- [GNUnet-SVN] [libextractor-perl] 02/08: sync, gnunet, 2019/04/13
- [GNUnet-SVN] [libextractor-perl] 03/08: address@hidden: rafl | 2005-11-13 12:46:00 +0100 * Moved everything in the right directory again. * Removed copying. I'm not sure about the license yet. I think I'll chose Artistic + GPL., gnunet, 2019/04/13
- [GNUnet-SVN] [libextractor-perl] 08/08: update readmes, gnunet, 2019/04/13