RPM4/examples/checkhdr


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

# $Id$

use strict;
use warnings;
use RPM4;
use RPM4::Header::Checks;

foreach (@ARGV) {
    my $h = rpm2header($_);
    RPM4::Header::Checks::check($h);
}