This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Undo 63b558ddd980cd36bcbd8a7465a3412e886ba75e.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 30 May 2014 02:01:06 +0000 (22:01 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 30 May 2014 02:01:06 +0000 (22:01 -0400)
(For some odd reason assert() cannot be found and Jenkins becomes apoplectic.)

regexp.h

index 59d5ee2..db7ae8b 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -382,7 +382,7 @@ get_regex_charset_name(const U32 flags, STRLEN* const lenp)
            *lenp = 2;
            return ASCII_MORE_RESTRICT_PAT_MODS;
         default:
            *lenp = 2;
            return ASCII_MORE_RESTRICT_PAT_MODS;
         default:
-           NOT_REACHED; /* NOTREACHED */
+           return "?";     /* Unknown */
     }
 }
 
     }
 }