diff --git a/Alien/Package/Rpm.pm b/Alien/Package/Rpm.pm
index 80219b4..d75a418 100644
--- a/Alien/Package/Rpm.pm
+++ b/Alien/Package/Rpm.pm
@@ -215,7 +215,7 @@ sub prep {
 	my $filelist;
 	foreach my $fn (@{$this->filelist}) {
 		if ($fn =~ m:/$:) {
-			# a directory. Skip entirely.
+			$filelist.="%dir $fn\n";
 		}
 		elsif (grep(m:^\Q$fn\E$:,@conffiles)) { # it's a conffile
 			$filelist.="%config $fn\n";
diff --git a/Makefile.PL b/Makefile.PL
index 386690b..f57b61b 100755
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -28,7 +28,7 @@ extra_install:
 
 alien:
 	perl -pe ' \
-		$$_="\tmy \$$version_string=\"$(VER)\";" \
+		$$_="\tmy \$$version_string=\"$(VER)\";\n" \
 			if /VERSION_AUTOREPLACE/' alien.pl > alien
 }
 }
@@ -39,6 +39,6 @@ WriteMakefile(
 	# Pure evil. Hook into build and install targets
 	'depend'	=> {'all:' => 'extra_build',
 			    'install:' => 'extra_install',
-			    'pure_install:' => 'extra_install'
-	'clean'		=> {FILES => 'alien.lsm alien.subst'},
+			    'pure_install:' => 'extra_install'},
+	'clean'		=> {FILES => 'alien.lsm alien'},
 );
diff --git a/alien.pl b/alien.pl
index 5b490c5..c04f846 100755
--- a/alien.pl
+++ b/alien.pl
@@ -371,7 +371,7 @@ foreach my $file (@ARGV) {
 					$package->patchfile($patchfile)
 				}
 				else {
-					$package->patchfile($package->getpatch(patchdirs());
+					$package->patchfile($package->getpatch(patchdirs()));
 				}
 			}