From 65f503976340ea03c030b26af8691e2f373f1377 Mon Sep 17 00:00:00 2001
From: Justin Davis <jrcd83@gmail.com>
Date: Sun, 20 Nov 2011 11:56:53 -0500
Subject: Default to ~/var for var path. Always print Config mod which has no
 .pm file.

---
 lib/metas/perl.d/scrapecore | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)
 mode change 100644 => 100755 lib/metas/perl.d/scrapecore

diff --git a/lib/metas/perl.d/scrapecore b/lib/metas/perl.d/scrapecore
old mode 100644
new mode 100755
index 19cce80..2e1aba3
--- a/lib/metas/perl.d/scrapecore
+++ b/lib/metas/perl.d/scrapecore
@@ -206,7 +206,8 @@ sub _delmatch
 sub coreonly
 {
 	my %mods = map { @$_ } @_;
-	my $path = "$ENV{'PKGVAR'}/cpanmods";
+	my $var = $ENV{'PKGVAR'} || "$ENV{'HOME'}/var";
+	my $path = "$var/cpanmods";
 	open(my $if, '<', $path) or die("open $path: $!");
 
 	my @dists;
@@ -233,5 +234,8 @@ my @mods =
 	(CoreDist::findmods($perldir),
 	CoreLib::findmods($perldir));
 
+## Embedded modules without any files...
+push @mods, [qw/ Config 1/];
+
 @mods = coreonly(@mods);
 for my $mv (@mods){ print "@$mv\n"; }
-- 
cgit v1.2.3-24-g4f1b