While I agree with you, there is a workaround:
#! /usr/local/bin/perl -w
use strict;
my $pre = 1;
my ($buf, $x);
while (defined ($x = read(STDIN, $buf, 4096)) && $x > 0) {
if ($pre && ($x = index($buf, "\037\213")) != -1) {
$buf = substr($buf, $x);
$pre = 0;
}
print $buf unless $pre;
}
Used as: perl unrpm.pl <foo.rpm | gzip -d | cpio -id
-- brandon s. allbery [os/2][linux][solaris][japh] allbery@kf8nh.apk.net system administrator [WAY too many hats] allbery@ece.cmu.edu carnegie mellon / electrical and computer engineering KF8NH We are Linux. Resistance is an indication that you missed the point.- To unsubscribe from this list: send the line "unsubscribe linux-kernel" in the body of a message to majordomo@vger.rutgers.edu Please read the FAQ at http://www.tux.org/lkml/