Changed Lintian to Maemian in Output.pm

diff --git a/lib/Maemian/Output.pm b/lib/Maemian/Output.pm
index 745abfc..2d65d9e 100644 (file)
--- a/lib/Maemian/Output.pm
+++ b/lib/Maemian/Output.pm
@@ -135,7 +135,7 @@ Maemian::Output->mk_accessors(qw(verbose debug quiet color colors stdout
 my %default_colors = ( 'E' => 'red' , 'W' => 'yellow' , 'I' => 'cyan',
                       'P' => 'green' );
 
-our $GLOBAL = new Lintian::Output;
+our $GLOBAL = new Maemian::Output;
 
 sub new {
     my ($class, %options) = @_;
@@ -309,7 +309,7 @@ sub print_tag {
 
     $self->_print('', "$code: $pkg_info->{pkg}$type", "$tag$information");
     if (!$self->issued_tag($tag_info->{tag}) and $self->showdescription) {
-       my $info = Lintian::Tag::Info->new($tag_info->{tag});
+       my $info = Maemian::Tag::Info->new($tag_info->{tag});
        if ($info) {
            my $description;
            if ($self->_do_color && $self->color eq 'html') {
@@ -327,7 +327,7 @@ sub print_tag {
 =item C<print_start_pkg($pkg_info)>
 
 Called before lintian starts to handle each package.  The version in
-Lintian::Output uses v_msg() for output.  Called from Tags::select_pkg().
+Maemian::Output uses v_msg() for output.  Called from Tags::select_pkg().
 
 =cut
 
@@ -341,7 +341,7 @@ sub print_start_pkg {
 =item C<print_start_pkg($pkg_info)>
 
 Called after lintian is finished with a package.  The version in
-Lintian::Output does nothing.  Called from Tags::select_pkg() and
+Maemian::Output does nothing.  Called from Tags::select_pkg() and
 Tags::reset_pkg().
 
 =cut
@@ -399,7 +399,7 @@ If you override these three methods, you can change
 the calling convention for this method to pretty much
 whatever you want.
 
-The version in Lintian::Output prints the strings in
+The version in Maemian::Output prints the strings in
 @args, one per line, each line preceded by $lead to
 the I/O handle given in $stream.
 
@@ -446,18 +446,18 @@ sub _do_color {
 
 =item C<_global_or_object(@args)>
 
-If $args[0] is a object which satisfies C<isa('Lintian::Output')>
-returns @args, otherwise returns C<($Lintian::Output::GLOBAL, @_)>.
+If $args[0] is a object which satisfies C<isa('Maemian::Output')>
+returns @args, otherwise returns C<($Maemian::Output::GLOBAL, @_)>.
 
 =back
 
 =cut
 
 sub _global_or_object {
-    if (ref($_[0]) and $_[0]->isa('Lintian::Output')) {
+    if (ref($_[0]) and $_[0]->isa('Maemian::Output')) {
        return @_;
     } else {
-       return ($Lintian::Output::GLOBAL, @_);
+       return ($Maemian::Output::GLOBAL, @_);
     }
 }
 
@@ -466,7 +466,7 @@ __END__
 
 =head1 EXPORTS
 
-Lintian::Output exports nothing by default, but the following export
+Maemian::Output exports nothing by default, but the following export
 tags are available:
 
 =over 4
@@ -484,6 +484,7 @@ Exports all the methods in L<CLASS METHODS>
 =head1 AUTHOR
 
 Originally written by Frank Lichtenheld <djpig@debian.org> for Lintian.
+Modified by Jeremiah C. Foster <jeremiah@maemo.org> for maemian.
 
 =head1 SEE ALSO