From: David Dyck <david.dyck@fluke.com>
Date: Tue, 17 Apr 2001 17:12:58 +0000 (-0700)
Subject: Deparse.pm of split(" ") decodes as /\s+/ (with PATCH)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fcd95d64261fbf883aedb4851f2dba5901cde9a4;p=p5sagit%2Fp5-mst-13.2.git

Deparse.pm of split(" ") decodes as /\s+/ (with PATCH)
Message-ID: <Pine.LNX.4.33.0104171508210.23062-100000@dd.tc.fluke.com>

p4raw-id: //depot/perl@9735
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 2a76d9e..1d109ff 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -16,7 +16,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber cstring
 	 OPpCONST_ARYBASE
 	 SVf_IOK SVf_NOK SVf_ROK SVf_POK
          CVf_METHOD CVf_LOCKED CVf_LVALUE
-	 PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE
+	 PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE PMf_SKIPWHITE
 	 PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED);
 $VERSION = 0.60;
 use strict;
@@ -2992,6 +2992,15 @@ sub pp_split {
     for (; !null($kid); $kid = $kid->sibling) {
 	push @exprs, $self->deparse($kid, 6);
     }
+
+    # handle special case of split(), and split(" ") that compiles to /\s+/
+    $kid = $op->first;
+    if ($kid->flags & OPf_SPECIAL
+	&& $exprs[0] eq '/\\s+/'
+	&& $kid->pmflags & PMf_SKIPWHITE ) {
+	    $exprs[0] = '" "';
+    }
+
     $expr = "split(" . join(", ", @exprs) . ")";
     if ($ary) {
 	return $self->maybe_parens("$ary = $expr", $cx, 7);