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 #! /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

View File

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

View File

@ -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)

View File

@ -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>