Fix =~ $str_overloaded (5.10 regression)

[perl5.git] / handy.h

diff --git a/handy.h b/handy.h
index 3eb8e51..3782788 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -593,7 +593,7 @@ patched there.  The file as of this writing is cpan/Devel-PPPort/parts/inc/misc
 /* The lower 3 bits in both the ASCII and EBCDIC representations of '0' are 0,
  * and the 8 possible permutations of those bits exactly comprise the 8 octal
  * digits */
-#define isOCTAL_A(c)  cBOOL(FITS_IN_8_BITS(c) && (0xF8 & (c)) eq '0')
+#define isOCTAL_A(c)  cBOOL(FITS_IN_8_BITS(c) && (0xF8 & (c)) == '0')
 
 
 /* ASCII range only */
@@ -1316,8 +1316,8 @@ void Perl_mem_log_del_sv(const SV *sv, const char *filename, const int linenumbe
  * Local variables:
  * c-indentation-style: bsd
  * c-basic-offset: 4
- * indent-tabs-mode: t
+ * indent-tabs-mode: nil
  * End:
  *
- * ex: set ts=8 sts=4 sw=4 noet:
+ * ex: set ts=8 sts=4 sw=4 et:
  */