cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Sync with FreeBSD port:

Browse Source 
- remove $/, $| it's artifacts from $rpm = <$f>; time.
  [this might help in low RAM situations]
- change && to and
- whitespace cosmetic.
This commit is contained in:
ajacoutot 2010-08-22 17:55:38 +00:00
parent c0045d0056
commit c295cd61be
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
converters/rpm2cpio/Makefile
View File

@ -1,10 +1,12 @@
# $OpenBSD: Makefile,v 1.10 2010/07/12 05:55:28 ajacoutot Exp $
# $OpenBSD: Makefile,v 1.11 2010/08/22 17:55:38 ajacoutot Exp $
COMMENT= rpm2cpio converter in Perl
DISTNAME= rpm2cpio-1.3
CATEGORIES= converters archivers
REVISION= 0
# BSD
PERMIT_DISTFILES_CDROM= Yes
PERMIT_DISTFILES_FTP= Yes

10
converters/rpm2cpio/files/rpm2cpio
View File

@ -44,16 +44,12 @@ if ($#ARGV == -1) {
exit 0;
}
# gobble the file up
undef $/;
$|=1;
read $f, $rpm, 96;
my ($magic, $major, undef) = unpack("NCC", $rpm);
die "Not an RPM\n" if $magic != 0xedabeedb;
die "Not a version 3 or 4 RPM\n" if $major != 3 && $major != 4;
die "Not a version 3 or 4 RPM\n" if $major != 3 and $major != 4;
read $f, $rpm, 16 or die "No header\n";
while(1) {
@ -73,7 +69,7 @@ while(1) {
last;
}
# 0xFD, '7zXZ', 0x0
if ($smagic == 0xfd37 and $smagic2== 0x7a585a00) {
if ($smagic == 0xfd37 and $smagic2 == 0x7a585a00) {
$filter = "xz -cd";
last;
}
@ -84,7 +80,7 @@ while(1) {
}
# skip the headers
seek $f, 16*$sections+$bytes, 1 or die "File is too small\n";
seek $f, 16 * $sections + $bytes, 1 or die "File is too small\n";
do {
read $f, $rpm, 1 or die "No header\n" ;
} while(0 == unpack("C", $rpm));