diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-12-19 16:20:42 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-19 16:30:40 -0800 |
| commit | 7b46bf4c9fea9c8ec5466c74e7b96886d1a4f1da (patch) | |
| tree | df896705b9b1a0c35dea8fa4220f3005f1d90f9b /universal.c | |
| parent | b1dcc8e278f8fb24401a718bd5acc1b867192967 (diff) | |
| download | perl-7b46bf4c9fea9c8ec5466c74e7b96886d1a4f1da.tar.gz | |
[perl #123458] list cx re::regexp_pattern($nonre)
It was returning (undef) in list context, though it was documented to
return the empty list.
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c index 2b334ea116..5d78fd6327 100644 --- a/universal.c +++ b/universal.c @@ -980,7 +980,7 @@ XS(XS_re_regexp_pattern) /* It ain't a regexp folks */ if ( gimme == G_ARRAY ) { /* return the empty list */ - XSRETURN_UNDEF; + XSRETURN_EMPTY; } else { /* Because of the (?:..) wrapping involved in a stringified pattern it is impossible to get a |