diff --git a/Alien/Package/Deb.pm b/Alien/Package/Deb.pm
index bfa553a..6d1ad99 100644
--- a/Alien/Package/Deb.pm
+++ b/Alien/Package/Deb.pm
@@ -722,7 +722,7 @@ sub postinst {
 	return $postinst unless ref $owninfo;
 
 	# 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);
 	if ($firstline !~ m/^#!\s*\/bin\/sh/) {
diff --git a/Alien/Package/Rpm.pm b/Alien/Package/Rpm.pm
index 0833e95..0511c2b 100644
--- a/Alien/Package/Rpm.pm
+++ b/Alien/Package/Rpm.pm
@@ -217,7 +217,7 @@ sub unpack {
 			$gid=0;
 		}
 		if (defined($owninfo{$file}) && ($mode & 07000 > 0)) {
-			$modeinfo{$file} = $mode;
+			$modeinfo{$file} = sprintf "%lo", $mode;
 		}
 		next unless -e "$workdir/$file"; # skip broken links
 		if ($> == 0) {
diff --git a/alien.pl b/alien.pl
index 24f2ef8..9edc8e4 100755
--- a/alien.pl
+++ b/alien.pl
@@ -450,7 +450,7 @@ foreach my $file (@ARGV) {
 		$package->release($package->release + 1);
 		$^W=1; # Re-enable warnings.
 	}
-
+	
 	foreach my $format (keys %destformats) {
 		# Skip conversion if package is already the correct format.
 		if ($package->origformat ne $format) {