even more hardcoded path sillyness

This commit is contained in:
Joey Hess 2005-09-14 21:00:38 +00:00
parent 49d0e270fb
commit 8a87eea9f2
4 changed files with 2 additions and 9 deletions

View File

@ -1,7 +1,4 @@
#! /usr/bin/perl -w
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; #$running_under_some_shell
# Copyright (c) 2002 Philip Hands <phil@hands.com>
# See the README file for the license

View File

@ -13,11 +13,10 @@ my $codename = $ENV{'CODENAME'};
my $basedir = $ENV{'BASEDIR'};
my @archs = qw(alpha arm i386 m68k powerpc sparc);
my $master = "$basedir/data/$codename/master";
my $slice = "/usr/bin/slice";
# Creating master.* files
chdir $ENV{'TDIR'};
system "$slice $master";
system "slice $master";
# Loop over all archs
my $arch;

View File

@ -174,7 +174,7 @@ sub writelist {
@samemaint=();
if ($override =~ /\.gz$/) {
open(O, "/bin/zcat $override|")
open(O, "zcat $override|")
or die "Couldn't open override file $override: $!\n";
} else {
open(O, $override)

View File

@ -1,7 +1,4 @@
#! /usr/bin/perl -w
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; #$running_under_some_shell
# $Id$
# Copyright (c) 2002 Philip Hands <phil@hands.com>