even more hardcoded path sillyness
This commit is contained in:
parent
49d0e270fb
commit
8a87eea9f2
|
@ -1,7 +1,4 @@
|
||||||
#! /usr/bin/perl -w
|
#! /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>
|
# Copyright (c) 2002 Philip Hands <phil@hands.com>
|
||||||
# See the README file for the license
|
# See the README file for the license
|
||||||
|
|
||||||
|
|
|
@ -13,11 +13,10 @@ my $codename = $ENV{'CODENAME'};
|
||||||
my $basedir = $ENV{'BASEDIR'};
|
my $basedir = $ENV{'BASEDIR'};
|
||||||
my @archs = qw(alpha arm i386 m68k powerpc sparc);
|
my @archs = qw(alpha arm i386 m68k powerpc sparc);
|
||||||
my $master = "$basedir/data/$codename/master";
|
my $master = "$basedir/data/$codename/master";
|
||||||
my $slice = "/usr/bin/slice";
|
|
||||||
|
|
||||||
# Creating master.* files
|
# Creating master.* files
|
||||||
chdir $ENV{'TDIR'};
|
chdir $ENV{'TDIR'};
|
||||||
system "$slice $master";
|
system "slice $master";
|
||||||
|
|
||||||
# Loop over all archs
|
# Loop over all archs
|
||||||
my $arch;
|
my $arch;
|
||||||
|
|
|
@ -174,7 +174,7 @@ sub writelist {
|
||||||
@samemaint=();
|
@samemaint=();
|
||||||
|
|
||||||
if ($override =~ /\.gz$/) {
|
if ($override =~ /\.gz$/) {
|
||||||
open(O, "/bin/zcat $override|")
|
open(O, "zcat $override|")
|
||||||
or die "Couldn't open override file $override: $!\n";
|
or die "Couldn't open override file $override: $!\n";
|
||||||
} else {
|
} else {
|
||||||
open(O, $override)
|
open(O, $override)
|
||||||
|
|
|
@ -1,7 +1,4 @@
|
||||||
#! /usr/bin/perl -w
|
#! /usr/bin/perl -w
|
||||||
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
|
|
||||||
if 0; #$running_under_some_shell
|
|
||||||
|
|
||||||
# $Id$
|
# $Id$
|
||||||
|
|
||||||
# Copyright (c) 2002 Philip Hands <phil@hands.com>
|
# Copyright (c) 2002 Philip Hands <phil@hands.com>
|
||||||
|
|
Loading…
Reference in New Issue