Added lots more modules from lintian. Maemian appears to work.

[maemian] / lib / Tags.pm

diff --git a/lib/Tags.pm b/lib/Tags.pm
index 4a9024d..aa2bc5e 100644 (file)
--- a/lib/Tags.pm
+++ b/lib/Tags.pm
@@ -1,4 +1,4 @@
-# Tags -- Perl tags functions for lintian
+# Tags -- Perl tags functions for maemian
 
 # Copyright (C) 1998-2004 Various authors
 # Copyright (C) 2005 Frank Lichtenheld <frank@lichtenheld.de>
@@ -129,11 +129,11 @@ sub select_pkg {
     }
 
     if ($current) {
-       $Lintian::Output::GLOBAL->print_end_pkg($info{$current});
+       $Maemian::Output::GLOBAL->print_end_pkg($info{$current});
     }
     $current = $file;
     if ($file !~ /.changes$/) {
-       $Lintian::Output::GLOBAL->print_start_pkg($info{$current});
+       $Maemian::Output::GLOBAL->print_start_pkg($info{$current});
     }
     return 1;
 }
@@ -141,7 +141,7 @@ sub select_pkg {
 # only delete the value of 'current' without deleting any stored information
 sub reset_pkg {
     if ($current) {
-       $Lintian::Output::GLOBAL->print_end_pkg($info{$current});
+       $Maemian::Output::GLOBAL->print_end_pkg($info{$current});
     }
     undef $current;
     return 1;
@@ -362,7 +362,7 @@ sub tag {
     return 0 unless
        ! keys %only_issue_tags or exists $only_issue_tags{$tag};
 
-    # Clean up @information and collapse it to a string.  Lintian code doesn't
+    # Clean up @information and collapse it to a string.  Maemian code doesn't
     # treat the distinction between extra arguments to tag() as significant,
     # so we may as well take care of this up front.
     @information = grep { defined($_) and $_ ne '' }
@@ -382,15 +382,9 @@ sub tag {
 
     return 1 if skip_print( $tag_info );
 
-    $Lintian::Output::GLOBAL->print_tag( $info{$current}, $tag_info,
+    $Maemian::Output::GLOBAL->print_tag( $info{$current}, $tag_info,
                                         $information );
     return 1;
 }
 
 1;
-
-# Local Variables:
-# indent-tabs-mode: t
-# cperl-indent-level: 4
-# End:
-# vim: ts=4 sw=4 noet