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

Some minor updates:

Browse Source 
- remove $/, $| it's artifacts from $rpm = <$f>; time.
  [this might help in low RAM situations]
- change && to and
- whitespace cosmetic.

Submitted by:	Alex Kozlov <spam@rm-rf.kiev.ua> (via private email)
This commit is contained in:
Juergen Lock 2010-08-22 15:29:21 +00:00
parent 5ecc8daa29
commit 9e0f0f60d6
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=259745
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
archivers/rpm2cpio/Makefile
View File

@ -7,6 +7,7 @@
PORTNAME= rpm2cpio
PORTVERSION= 1.3
PORTREVISION= 1
CATEGORIES= archivers
MASTER_SITES= # none
DISTFILES= # none

10
archivers/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));