--- a/installman
+++ b/installman
@@ -182,7 +182,6 @@
     }
 }
 
-$packlist->write() unless $opts{notify};
 print "  Installation complete\n" if $opts{verbose};
 
 # ex: set ts=8 sts=4 sw=4 et:
--- a/installperl
+++ b/installperl
@@ -507,7 +507,6 @@
 }
 
 
-$packlist->write() unless $opts{notify};
 print "  Installation complete\n" if $opts{verbose};
 
 exit 0;