mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Get rid of hardcoded paths.

Browse source
This commit is contained in:
Eelco Dolstra 2005-02-01 09:54:56 +00:00
parent 06b4424286
commit a6b65fd5e1
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
scripts/generate-patches.pl → scripts/generate-patches.pl.in
View file

@ -1,4 +1,4 @@
#! /usr/bin/perl -w -I/home/eelco/nix/scripts #! @perl@ -w -I@libexecdir@/nix
use strict; use strict;
use POSIX qw(tmpnam); use POSIX qw(tmpnam);
@ -186,22 +186,22 @@ foreach my $p (keys %dstOutPaths) {
my $srcNarBz2 = getNarBz2 \%srcNarFiles, $closest; my $srcNarBz2 = getNarBz2 \%srcNarFiles, $closest;
my $dstNarBz2 = getNarBz2 \%dstNarFiles, $p; my $dstNarBz2 = getNarBz2 \%dstNarFiles, $p;
system("bunzip2 < $srcNarBz2 > $tmpdir/A") == 0 system("@bunzip2@ < $srcNarBz2 > $tmpdir/A") == 0
or die "cannot unpack $srcNarBz2"; or die "cannot unpack $srcNarBz2";
system("bunzip2 < $dstNarBz2 > $tmpdir/B") == 0 system("@bunzip2@ < $dstNarBz2 > $tmpdir/B") == 0
or die "cannot unpack $dstNarBz2"; or die "cannot unpack $dstNarBz2";
system("bsdiff $tmpdir/A $tmpdir/B $tmpdir/DIFF") == 0 system("@libexecdir@/bspatch $tmpdir/A $tmpdir/B $tmpdir/DIFF") == 0
or die "cannot compute binary diff"; or die "cannot compute binary diff";
my $baseHash = `nix-hash --flat $tmpdir/A` or die; my $baseHash = `@bindir@/nix-hash --flat $tmpdir/A` or die;
chomp $baseHash; chomp $baseHash;
my $narHash = `nix-hash --flat $tmpdir/B` or die; my $narHash = `@bindir@/nix-hash --flat $tmpdir/B` or die;
chomp $narHash; chomp $narHash;
my $narDiffHash = `nix-hash --flat $tmpdir/DIFF` or die; my $narDiffHash = `@bindir@/nix-hash --flat $tmpdir/DIFF` or die;
chomp $narDiffHash; chomp $narDiffHash;
my $narDiffSize = (stat "$tmpdir/DIFF")[7]; my $narDiffSize = (stat "$tmpdir/DIFF")[7];