diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2007-08-29 17:04:53 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-08-30 13:49:14 +0000 |
| commit | fe5bfecd71ca735f83568f7bc2b9f22cc82e3d61 (patch) | |
| tree | 1fbf396647db987f0166de4ee32bf04f3c6c5c25 /regexec.c | |
| parent | 0cb1540ad85637e5abb7372876a8c85c855a7427 (diff) | |
| download | perl-fe5bfecd71ca735f83568f7bc2b9f22cc82e3d61.tar.gz | |
misc blead stuff
Message-ID: <46D617B5.3000002@iki.fi>
p4raw-id: //depot/perl@31765
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5572,8 +5572,8 @@ Perl_regclass_swash(pTHX_ const regexp *prog, register const regnode* node, bool * documentation of these array elements. */ si = *ary; - a = SvROK(ary[1]) ? &ary[1] : 0; - b = SvTYPE(ary[2]) == SVt_PVAV ? &ary[2] : 0; + a = SvROK(ary[1]) ? &ary[1] : NULL; + b = SvTYPE(ary[2]) == SVt_PVAV ? &ary[2] : NULL; if (a) sw = *a; |