The following commit has been merged in the master branch:
commit a4b56b1a92127bf068695635b13360c7fbf89ca7
Author: Adam D. Barratt <[EMAIL PROTECTED]>
Date:   Sun Dec 7 15:30:59 2008 +0000

    Export a number of functions so they can be called from other modules

diff --git a/lib/Read_taginfo.pm b/lib/Read_taginfo.pm
index cade0ec..0aaa6c7 100644
--- a/lib/Read_taginfo.pm
+++ b/lib/Read_taginfo.pm
@@ -19,6 +19,12 @@
 # Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
 # MA 02110-1301, USA.
 
+package Read_taginfo;
+
+use Exporter;
+our @ISA    = qw(Exporter);
+our @EXPORT = qw(read_tag_info format_tag_description);
+
 my $LINTIAN_ROOT = $ENV{'LINTIAN_ROOT'} || '/usr/share/lintian';
 my $debug = $ENV{'LINTIAN_DEBUG'} || 0;
 
@@ -47,7 +53,7 @@ sub read_tag_info {
     for my $f (<$LINTIAN_ROOT/checks/*.desc>) {
        print "N: Reading checker description file $f ...\n" if $debug >= 2;
 
-       my @secs = read_dpkg_control($f);
+       my @secs = Util::read_dpkg_control($f);
        $secs[0]->{'check-script'} or fail("error in description file $f: 
`Check-Script:' not defined");
 
        for (my $i=1; $i<=$#secs; $i++) {
diff --git a/lib/Text_utils.pm b/lib/Text_utils.pm
index 56ea7b4..e869b50 100644
--- a/lib/Text_utils.pm
+++ b/lib/Text_utils.pm
@@ -19,6 +19,12 @@
 # Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
 # MA 02110-1301, USA.
 
+package Text_utils;
+
+use Exporter;
+our @ISA    = qw(Exporter);
+our @EXPORT = qw(split_paragraphs wrap_paragraphs dtml_to_html dtml_to_text);
+
 use strict;
 
 # requires wrap() function

-- 
Debian package checker


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to