From 5f7e30c4a6075995b75f8d337d2b381e5463bce3 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 19 Sep 2012 22:55:37 +0200
Subject: [PATCH] For backcompat, B::formfeed can use gv_fetchpvs() if there is
 no PL_formfeed.

---
 ext/B/B.pm |  2 +-
 ext/B/B.xs | 11 +++++++++++
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 1274aaa..7229d53 100644
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -15,7 +15,7 @@ require Exporter;
 # walkoptree comes from B.xs
 
 BEGIN {
-    $B::VERSION = '1.38';
+    $B::VERSION = '1.39';
     @B::EXPORT_OK = ();
 
     # Our BOOT code needs $VERSION set, and will append to @EXPORT_OK.
diff --git a/ext/B/B.xs b/ext/B/B.xs
index ad839b5..435b0cc 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -671,8 +671,10 @@ BOOT:
     ASSIGN_COMMON_ALIAS(I, defstash);
     cv = newXS("B::curstash", intrpvar_sv_common, file);
     ASSIGN_COMMON_ALIAS(I, curstash);
+#ifdef PL_formfeed
     cv = newXS("B::formfeed", intrpvar_sv_common, file);
     ASSIGN_COMMON_ALIAS(I, formfeed);
+#endif
 #ifdef USE_ITHREADS
     cv = newXS("B::regex_padav", intrpvar_sv_common, file);
     ASSIGN_COMMON_ALIAS(I, regex_padav);
@@ -683,6 +685,15 @@ BOOT:
     ASSIGN_COMMON_ALIAS(I, diehook);
 }
 
+#ifndef PL_formfeed
+
+void
+formfeed()
+    PPCODE:
+	PUSHs(make_sv_object(aTHX_ GvSV(gv_fetchpvs("\f", GV_ADD, SVt_PV))));
+
+#endif
+
 long 
 amagic_generation()
     CODE:
-- 
2.7.4