Document toke.c.

[p5sagit/p5-mst-13.2.git] / lib / Dumpvalue.pm

diff --git a/lib/Dumpvalue.pm b/lib/Dumpvalue.pm
index 5bcd58f..9c596ff 100644 (file)
--- a/lib/Dumpvalue.pm
+++ b/lib/Dumpvalue.pm
@@ -181,6 +181,13 @@ sub unwrap {
     }
   }
 
+  if (ref $v eq 'Regexp') {
+    my $re = "$v";
+    $re =~ s,/,\\/,g;
+    print "$sp-> qr/$re/\n";
+    return;
+  }
+
   if ( UNIVERSAL::isa($v, 'HASH') ) {
     my @sortKeys = sort keys(%$v) ;
     my $more;