--- splat.pl
+++ splat.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!@GENTOO_PORTAGE_EPREFIX@/usr/bin/perl -w
 
 # Copyright 2003; Shaun Guth <l8nite@l8nite.net>
 #
@@ -65,13 +65,13 @@
 			return unless /\.ebuild$/;
 
 			my $basedir = dirname($File::Find::name);
-			   $basedir =~ s/^\/var\/db\/pkg//;
+			   $basedir =~ s|^@GENTOO_PORTAGE_EPREFIX@/var/db/pkg||;
 			my $package = join('/',(splitdir($basedir))[1,2]);
 
 			$INSTALLED{$package} = 1;
 
 		}, 'no_chdir' => 1, },
-		'/var/db/pkg',
+		'@GENTOO_PORTAGE_EPREFIX@/var/db/pkg',
 	);
 
 	&parse_command_line();
@@ -320,7 +320,7 @@
 	# no logfile defined? Let's check make.conf
 	if( !defined($logfile) || $logfile eq "" )
 	{
-		$logfile = '/var/log/emerge.log';
+		$logfile = '@GENTOO_PORTAGE_EPREFIX@/var/log/emerge.log';
 
 		if( $OPT->{'verbose'} ) {
 			warn "*** No log file specified.\n";