[SCM] Debian Qt/KDE packaging tools branch, master, updated. debian/0.9.1

[Modestas Vainius]

The following commit has been merged in the master branch:
commit fccfe43bb77c08788228bda20d5bbaa20cb44e84
Author: Modestas Vainius <modestas at vainius.eu>
Date:   Fri Jun 4 01:03:33 2010 +0300

    pkgkde-getbuildlogs: load HTTP::Request & friends in the INIT block.
    
    This will pass syntax check without libwww-perl installed (Closes: #584375).
---
 debian/changelog    |    2 ++
 pkgkde-getbuildlogs |   12 +++---------
 2 files changed, 5 insertions(+), 9 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index afef5a2..0039ca5 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,5 +1,7 @@
 pkg-kde-tools (0.9.1) UNRELEASED; urgency=low
 
+  * pkgkde-getbuildlogs: load HTTP::Request & friends in the INIT block in
+    order to pass syntax check without libwww-perl installed (Closes: #584375).
 
  -- Modestas Vainius <modax at debian.org>  Fri, 04 Jun 2010 00:54:11 +0300
 
diff --git a/pkgkde-getbuildlogs b/pkgkde-getbuildlogs
index 4a39aca..4e9cdd7 100755
--- a/pkgkde-getbuildlogs
+++ b/pkgkde-getbuildlogs
@@ -26,21 +26,15 @@ use File::Spec;
 use IO::Uncompress::Inflate qw(inflate);
 
 # Load extra modules (from libwww-perl and its dependencies)
-BEGIN {
+INIT {
     eval "use HTTP::Request";
     if ($@) {
 	error "in order to use this utility, you have to install libwww-perl package";
     }
+    eval "use URI; use URI::QueryParam; use URI::Escape;";
+    eval "use HTTP::Response; use LWP::UserAgent; use HTML::LinkExtor; use HTML::Parser;";
 }
 
-use URI;
-use URI::QueryParam;
-use URI::Escape;
-use HTTP::Response;
-use LWP::UserAgent;
-use HTML::LinkExtor;
-use HTML::Parser;
-
 sub usage {
     usageerr "[ -d destdir ] [ -v version ] [ -a arch ] [ -o ] [ package ] [ distribution ]";
 }

-- 
Debian Qt/KDE packaging tools