From 7fcfa1ce1ffd92fa426635feb76f8d7cbc56abff Mon Sep 17 00:00:00 2001
From: Ryan Voots <simcop2387@simcop2387.info>
Date: Sat, 27 Nov 2010 17:17:03 -0500
Subject: [PATCH] modified core.pm

Conflicts:

	var/cache-fastmmap
	var/seen.db
---
 plugins/core.pm | 60 ++++++++++++++++++++++++++++++-------------------
 1 file changed, 37 insertions(+), 23 deletions(-)

diff --git a/plugins/core.pm b/plugins/core.pm
index e3cb36e..4a51d14 100644
--- a/plugins/core.pm
+++ b/plugins/core.pm
@@ -1,31 +1,45 @@
-use Module::CoreList;
+BEGIN {
+    my ($filename) = "Module/CoreList.pm";
+    my ( $realfilename, $result );
+  ITER: {
+        foreach $prefix (@INC) {
+            $realfilename = "$prefix/$filename";
+            if ( -f $realfilename ) {
+                $INC{$filename} = $realfilename;
+                $result = do $realfilename;
+                last ITER;
+            }
+        }
+        die "Can't find $filename in \@INC";
+    }
+}
 
 sub {
-	my( $said, $pm ) = @_;
-	my $module = $said->{recommended_args}->[0];
+    my ( $said, $pm ) = @_;
+    my $module = $said->{recommended_args}->[0];
 
-	my $rev = Module::CoreList->first_release( $module );
-	if( $rev ) { 
-    print "Added to perl core as of $rev";
-    if ( Module::CoreList->can('removed_from') ) {
-      my $rem = Module::CoreList->removed_from( $module );
-      print " and removed from $rem" if $rem;
+    my $rev = Module::CoreList->first_release($module);
+    if ($rev) {
+        print "Added to perl core as of $rev";
+        if ( Module::CoreList->can('removed_from') ) {
+            my $rem = Module::CoreList->removed_from($module);
+            print " and removed from $rem" if $rem;
+        }
+    }
+    else {
+        my @modules = Module::CoreList->find_modules(qr/$module/);
+
+        if (@modules) {
+            print 'Found', scalar @modules, ':', join ',',
+              map { $_ . ' in ' . Module::CoreList->first_release($_) }
+              @modules;
+
+        }
+        else {
+            print "Module $module does not appear to be in core. Perhaps capitalization matters or try using the 'cpan' command to search for it.";
+        }
     }
   }
-	else { 
-
-					my @modules = Module::CoreList->find_modules(qr/$module/); 
-
-					if ( @modules ){
-
-							print 'Found', scalar @modules, ':', join ',' , 
-											map {$_.' in '. Module::CoreList->first_release( $_ ) } @modules;
-
-					}
-					else { 
-							print "Module $module does not appear to be in core. Perhaps capitalization matters or try using the 'cpan' command to search for it." }
-			}
-}
 
 __DATA__
 Tells you when the module you searched for was added to the Perl Core, if it was.