/usr/share/perl5/XMLTV/ProgressBar/Term.pm is in libxmltv-perl 0.5.67-0.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | # A wrapper around Term::ProgressBar
package XMLTV::ProgressBar::Term;
use strict;
use Exporter;
our @EXPORT = qw(close_bar);
sub new {
my $class = shift;
$ENV{LINES}=24 unless exists $ENV{LINES};
$ENV{COLUMNS}=80 unless exists $ENV{COLUMNS};
return Term::ProgressBar->new(@_);
}
sub close_bar() {
# Do nothing
}
sub AUTOLOAD {
use vars qw($AUTOLOAD);
print STDERR "dog $AUTOLOAD\n";
#return Term::ProgressBar->$AUTOLOAD(@_);
}
1;
|