From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 28 Aug 2009 08:33:31 +0000 (+0200)
Subject: There is no longer an "err" low-prec version of //, so remove it from B::Deparse
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b99f2732ec8593231b8421b315c62193337945a;p=p5sagit%2Fp5-mst-13.2.git

There is no longer an "err" low-prec version of //, so remove it from B::Deparse
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index d0fa534..df7ed31 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -22,7 +22,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber perlstring
 	 PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED),
 	 ($] < 5.009 ? 'PMf_SKIPWHITE' : 'RXf_SKIPWHITE'),
 	 ($] < 5.011 ? 'CVf_LOCKED' : ());
-$VERSION = 0.90;
+$VERSION = 0.91;
 use strict;
 use vars qw/$AUTOLOAD/;
 use warnings ();
@@ -2249,7 +2249,7 @@ sub logop {
 
 sub pp_and { logop(@_, "and", 3, "&&", 11, "if") }
 sub pp_or  { logop(@_, "or",  2, "||", 10, "unless") }
-sub pp_dor { logop(@_, "err", 2, "//", 10, "") }
+sub pp_dor { logop(@_, "//", 10) }
 
 # xor is syntactically a logop, but it's really a binop (contrary to
 # old versions of opcode.pl). Syntax is what matters here.