Skip to content

Commit

Permalink
Merge pull request #39 from jacquesg/warnings
Browse files Browse the repository at this point in the history
Silence some warnings
  • Loading branch information
abw committed May 11, 2014
2 parents 44b67ce + 5b5c407 commit 744cb8e
Showing 1 changed file with 5 additions and 1 deletion.
6 changes: 5 additions & 1 deletion xs/Stash.xs
Original file line number Diff line number Diff line change
Expand Up @@ -34,10 +34,11 @@ extern "C" {
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#define NEED_sv_2pv_flags
#define NEED_newRV_noinc
#include "ppport.h"
#include "XSUB.h"

#ifdef __cplusplus
}
Expand Down Expand Up @@ -162,6 +163,9 @@ static TT_RET tt_fetch_item(pTHX_ SV *root, SV *key_sv, AV *args, SV **result) {
if (looks_like_number(key_sv))
value = av_fetch((AV *) SvRV(root), SvIV(key_sv), FALSE);
break;

default:
break;
}

if (value) {
Expand Down

0 comments on commit 744cb8e

Please sign in to comment.