16 lines
251 B
Perl
Executable file
16 lines
251 B
Perl
Executable file
#! /usr/bin/perl -w -I/home/eelco/nix/scripts
|
|
|
|
use strict;
|
|
use readmanifest;
|
|
|
|
for my $p (@ARGV) {
|
|
|
|
my %narFiles;
|
|
my %patches;
|
|
|
|
readManifest $p, \%narFiles, \%patches;
|
|
|
|
%patches = ();
|
|
|
|
writeManifest $p, \%narFiles, \%patches;
|
|
}
|