app-portage/splat/files/splat-0.08-prefix.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

--- 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";