--- trunk/Makefile.PL	2006/01/05 17:54:18	33
+++ trunk/Makefile.PL	2006/06/27 22:50:25	162
@@ -12,13 +12,14 @@
 		'Test::Simple' => 0,
 		'Test::Exception' => 0,
 		'URI' => 0,
+		'LWP::UserAgent' => 0,
+		'MIME::Base64' => 0,
 		'URI::Escape' => 0,
-		'IO::Socket::INET' => 0,
     }, # e.g., Module::Name => 1.1
     ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
       (ABSTRACT_FROM  => 'Estraier.pm', # retrieve abstract from module
        AUTHOR         => 'Dobrica Pavlinusic <dpavlin@rot13.org>') : ()),
-       clean	=> { FILES => "Makefile.old pod2html" },
+       clean	=> { FILES => "Makefile Makefile.old pod2html" },
 );
 
 sub MY::postamble {
@@ -33,10 +34,24 @@
 	test ! -z "`which svn2html.pl`" && svn update && svn2html.pl > $(HTML_DIR)/Changes.html
 
 changelog:
-	svn update && svn -v log > Changes
+	svk log -v > Changes
 
 tags:
 	ctags *.p?
 
+cpan:
+	make clean
+	rm -f Search-Estraier-*.tar.gz
+	perl Makefile.PL
+	make changelog
+	make dist
+	make disttest
+	sudo /etc/init.d/hyperestraier stop
+	make disttest
+	sudo /etc/init.d/hyperestraier start
+	@echo
+	@echo -n "Upload" Search-Estraier-*.tar.gz "to CPAN? [y/N]:"
+	@read upload && test "$$upload" == "y" && cpan-upload -verbose Search-Estraier-*.tar.gz
+
 MAKE_MORE
 }