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' );
 
 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) = @_;
 
 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) {
 
     $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') {
        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
 =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
 
 
 =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
 =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
 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 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.
 
 @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)>
 
 
 =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 {
 
 =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 @_;
     } else {

-       return ($Lintian::Output::GLOBAL, @_);
+       return ($Maemian::Output::GLOBAL, @_);

     }
 }
 
     }
 }
 

@@ -466,7 +466,7 @@ __END__
 
 =head1 EXPORTS
 
 
 =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
 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.
 =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
 
 
 =head1 SEE ALSO