Don't increase order unless it's a new file

perlancar · Jul 26, 2012 · 2f728fc · 2f728fc
1 parent 5916c86
commit 2f728fc
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Devel/EndStats.pm b/lib/Devel/EndStats.pm
@@ -50,6 +50,8 @@ sub import {
     #unshift @INC, \&_inc_handler;
     *CORE::GLOBAL::require = sub {
         my ($arg) = @_;
+        return 0 if $INC{$arg};
+
         $req_level++;
 
         $inc_info{$arg}         ||= {