You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
853 B
34 lines
853 B
--- 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";
|