even more hardcoded path sillyness
This commit is contained in:
parent
49d0e270fb
commit
8a87eea9f2
|
@ -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
|
||||
|
||||
|
|
|
@ -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;
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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>
|
||||
|
|
Loading…
Reference in New Issue