From 5afc70702505b74c7415b954341a653a1c823cd9 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 18 Jul 2011 17:22:47 -0500
Subject: work around annoying base.pm behavior

---
 Changes                 |  1 +
 lib/circular/require.pm | 17 ++++++++++++++++-
 t/03-base.t             | 26 ++++++++++++++++++++++++++
 3 files changed, 43 insertions(+), 1 deletion(-)
 create mode 100644 t/03-base.t

diff --git a/Changes b/Changes
index c3eae18..dae5ecc 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for circular-require
 
 {{$NEXT}}
+      - work around annoying base.pm behavior (reported by wooster)
 
 0.02  2011-01-25
       - handle 'require VERSION' properly on 5.8 (ether)
diff --git a/lib/circular/require.pm b/lib/circular/require.pm
index c4d6e1f..6a8c0be 100644
--- a/lib/circular/require.pm
+++ b/lib/circular/require.pm
@@ -50,7 +50,22 @@ sub _require {
         warn "Circular require detected: $string_file (from " . caller() . ")\n";
     }
     $seen{$string_file} = 0;
-    my $ret = $saved ? $saved->($file) : CORE::require($file);
+    my $ret;
+    # XXX ugh, base.pm checks against the regex
+    # /^Can't locate .*? at \(eval / to see if it should suppress the error
+    # but we're not in an eval anymore... fake it for now, but this will
+    # definitely break if some other module that overrides CORE::require tries
+    # to do the same thing
+    if (caller eq 'base') {
+        my $mod = $file;
+        $mod =~ s+[/\\]+::+g;
+        $mod =~ s+\.pm$++;
+        $ret = $saved
+            ? $saved->($file) : eval "CORE::require($mod)";
+    }
+    else {
+        $ret = $saved ? $saved->($file) : CORE::require($file);
+    }
     $seen{$string_file} = 1;
     return $ret;
 }
diff --git a/t/03-base.t b/t/03-base.t
new file mode 100644
index 0000000..c0e032d
--- /dev/null
+++ b/t/03-base.t
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+my $success = eval <<EOF;
+no circular::require;
+
+{
+    package Foo;
+    sub bar {}
+}
+
+{
+    package Bar;
+    use base 'Foo';
+}
+1;
+EOF
+
+my $e = $@;
+
+ok($success, "no error with use base")
+    || diag($e);
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf