From db147d7ee1c1aca547b1d63ef7141e56821a3ae2 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Tue, 26 Jul 2011 13:02:45 -0700
Subject: [PATCH] Oops! Update B::Deparse for the (l)stat proto change

---
 dist/B-Deparse/Deparse.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm
index 848b2fa7a3..08129933a5 100644
--- a/dist/B-Deparse/Deparse.pm
+++ b/dist/B-Deparse/Deparse.pm
@@ -26,7 +26,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber perlstring
 	 ($] < 5.009 ? 'PMf_SKIPWHITE' : qw(RXf_SKIPWHITE)),
 	 ($] < 5.011 ? 'CVf_LOCKED' : 'OPpREVERSE_INPLACE'),
 	 ($] < 5.013 ? () : 'PMf_NONDESTRUCT');
-$VERSION = "1.06";
+$VERSION = "1.07";
 use strict;
 use vars qw/$AUTOLOAD/;
 use warnings ();
@@ -1553,7 +1553,7 @@ sub keyword {
 	    : "CORE::$name";
     }
     if (
-      $name !~ /^(?:chom?p|exec|system)\z/
+      $name !~ /^(?:chom?p|exec|system|l?stat)\z/
        && !defined eval{prototype "CORE::$name"}
     ) { return $name }
     if (
-- 
2.34.1