diff --git a/Makefile.PL b/Makefile.PL
index e528df5..15d683c 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -43,7 +43,8 @@ WriteMakefile(
 		'URI::Heuristic' => 0,
 		# 'Sub::Private' => 0,
 		'Sys::Hostname' => 0,
-		'File::Spec' => 0,
+		'File::Spec' => 3.4,
+		'File::HomeDir' => 0,
 		'Cwd' => 0,
 		'Socket' => 0,
 		'List::MoreUtils' => 0,
diff --git a/t/script.t b/t/script.t
index 91ca818..715debc 100644
--- a/t/script.t
+++ b/t/script.t
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 use Test::Most tests => 64;
 use File::Spec;
+use File::HomeDir;
 use Cwd;
 use Test::NoWarnings;
 use Tie::Filehandle::Preempt::Stdin;
@@ -193,6 +194,7 @@ PATHS: {
 	delete $ENV{'DOCUMENT_ROOT'};
 	$i = new_ok('CGI::Info');
 	ok($i->script_name() eq 'bar.pl');
+	my $home = File::HomeDir->my_home();
 	if($^O eq 'MSWin32') {
 		TODO: {
 			local $TODO = 'Script_dir test needs to be done on Windows';
@@ -200,7 +202,8 @@ PATHS: {
 			ok($i->script_path() =~ /\\.+bar\.pl$/);
 		}
 	} else {
-		like($i->script_dir(), qr/\/CGI-Info/i, 'Check script_dir looks right');
+		# like($i->script_dir(), qr/\/CGI-Info/i, 'Check script_dir looks right');
+		like($i->script_dir(), qr/$home/, 'Check script_dir looks right');
 		ok($i->script_path() =~ /\/.+bar\.pl$/);
 	}