Allow Data::Dumper to work on older Perls

Commit 0eb30aebe20a48d634d4e484bc9e6005dffc1420 changed D:D to use the
macro isWORDCHAR instead of isALNUM.  The problem is that this macro is
not defined in older Perls.  This new commit defines isWORDCHAR to be
isALNUM when it isn't already defined, thus avoiding the problem.

Signed-off-by: David Golden <dagolden@cpan.org>

diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm
index e081d61..d5d25ed 100644 (file)
--- a/dist/Data-Dumper/Dumper.pm
+++ b/dist/Data-Dumper/Dumper.pm
@@ -10,7 +10,7 @@
 package Data::Dumper;
 
 BEGIN {
-    $VERSION = '2.143'; # Don't forget to set version and release
+    $VERSION = '2.144'; # Don't forget to set version and release
 }               # date in POD below!
 
 #$| = 1;
@@ -1400,7 +1400,7 @@ modify it under the same terms as Perl itself.
 
 =head1 VERSION
 
-Version 2.143  (February 26 2013)
+Version 2.144  (March 07 2013)
 
 =head1 SEE ALSO
 

diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs
index d0f7145..b74650a 100644 (file)
--- a/dist/Data-Dumper/Dumper.xs
+++ b/dist/Data-Dumper/Dumper.xs
@@ -12,6 +12,10 @@
 #  define DD_USE_OLD_ID_FORMAT
 #endif
 
+#ifndef isWORDCHAR
+#   define isWORDCHAR(c) isALNUM(c)
+#endif
+
 static I32 num_q (const char *s, STRLEN slen);
 static I32 esc_q (char *dest, const char *src, STRLEN slen);
 static I32 esc_q_utf8 (pTHX_ SV *sv, const char *src, STRLEN slen);