b21853f255
See the comments at f67015cae4
for more information.
Please note: this makes initrd unrepeatable again, but most people will prefer that above an unbootable system.
18 lines
393 B
Perl
18 lines
393 B
Perl
use strict;
|
|
|
|
# Make inode number, link info and mtime consistent in order to get a consistent hash.
|
|
#
|
|
# Author: Alexander Kjeldaas <ak@formalprivacy.com>
|
|
|
|
use Archive::Cpio;
|
|
|
|
my $cpio = Archive::Cpio->new;
|
|
my $IN = \*STDIN;
|
|
my $ino = 1;
|
|
$cpio->read_with_handler($IN, sub {
|
|
my ($e) = @_;
|
|
$e->{mtime} = 1;
|
|
$cpio->write_one(\*STDOUT, $e);
|
|
});
|
|
$cpio->write_trailer(\*STDOUT);
|