summaryrefslogtreecommitdiffstats
path: root/RPM4/examples/checkhdr
blob: c2006cbd532e054dd88354c36d714c88e67ee7fa (plain)
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);
}