mlot/alien
1
0
Fork 0
mirror of https://github.com/Project-OSS-Revival/alien.git synced 2026-04-24 14:00:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

* Fix a couple more mistakes in the code added in 8.36.

Browse Source
This commit is contained in:
joey
2003-11-12 02:57:17 +00:00
parent bbb5ed69d1
commit 09057d6d33
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Alien/Package/Deb.pm
View File

@@ -722,7 +722,7 @@ sub postinst {
return $postinst unless ref $owninfo; return $postinst unless ref $owninfo;
# If there is no postinst, let's make one up.. # If there is no postinst, let's make one up..
$postinst="#!/bin/sh\n" unless defined $postinst; $postinst="#!/bin/sh\n" unless length $postinst;
my ($firstline, $rest)=split(/\n/, $postinst, 2); my ($firstline, $rest)=split(/\n/, $postinst, 2);
if ($firstline !~ m/^#!\s*\/bin\/sh/) { if ($firstline !~ m/^#!\s*\/bin\/sh/) {

2
Alien/Package/Rpm.pm
View File

@@ -217,7 +217,7 @@ sub unpack {
$gid=0; $gid=0;
} }
if (defined($owninfo{$file}) && ($mode & 07000 > 0)) { if (defined($owninfo{$file}) && ($mode & 07000 > 0)) {
$modeinfo{$file} = $mode; $modeinfo{$file} = sprintf "%lo", $mode;
} }
next unless -e "$workdir/$file"; # skip broken links next unless -e "$workdir/$file"; # skip broken links
if ($> == 0) { if ($> == 0) {

2
alien.pl
View File

@@ -450,7 +450,7 @@ foreach my $file (@ARGV) {
$package->release($package->release + 1); $package->release($package->release + 1);
$^W=1; # Re-enable warnings. $^W=1; # Re-enable warnings.
} }
foreach my $format (keys %destformats) { foreach my $format (keys %destformats) {
# Skip conversion if package is already the correct format. # Skip conversion if package is already the correct format.
if ($package->origformat ne $format) { if ($package->origformat ne $format) {