r2822 - trunk/build.d/dist/debian

[mikma at minisip.org]

Author: mikma
Date: 2006-10-06 11:55:41 +0200 (Fri, 06 Oct 2006)
New Revision: 2822

Modified:
   trunk/build.d/dist/debian/dist.pl
Log:
Auto detect support for Parse::DebianChangelog

Modified: trunk/build.d/dist/debian/dist.pl
===================================================================
--- trunk/build.d/dist/debian/dist.pl	2006-10-05 20:24:58 UTC (rev 2821)
+++ trunk/build.d/dist/debian/dist.pl	2006-10-06 09:55:41 UTC (rev 2822)
@@ -9,8 +9,26 @@
 # * libparse-debianchangelog-perl
 #
 
-use Parse::DebianChangelog;
 
+sub autodetect
+{
+    my ($module) = @_;
+
+    eval "require $module";
+    if ($@) {
+	warn $@ if $verbose;
+	return 0;
+    } else {
+	return 1;
+    }
+}
+
+
+# Auto detect Parse::DebianChangelog
+BEGIN {
+    $debian_changelog_loaded = &autodetect( Parse::DebianChangelog );
+}
+
 our $debian_tarballsdir = "$topdir/build/tarballs";
 our $default_buildareadir = "$topdir/build/build-area";
 our $debian_dir = "$confdir/dist/debian/src";
@@ -468,11 +486,14 @@
 	}
 }
 
+if ($debian_changelog_loaded) {
 set_dist_callbacks(
 		'pkgfiles' => \&debian_cb_pkgfiles,
 		'package' => \&debian_cb_package,
 		pkgcontents => \&debian_cb_pkgcontents,
 		merge => \&debian_cb_install,
 		purge => \&debian_cb_purge, 
-	);
-
+		   );
+} else {
+    set_dist_callbacks();
+}