xmltv/lib Ask.pm,1.17,1.18

Update of /cvsroot/xmltv/xmltv/lib
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv961/lib

Modified Files:
	Ask.pm 
Log Message:
4 space indents

Index: Ask.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/Ask.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** Ask.pm	30 Jan 2005 15:36:23 -0000	1.17
--- Ask.pm	12 Jul 2015 04:50:46 -0000	1.18
***************
*** 24,36 ****
  # Use Log::TraceMessages if installed.
  BEGIN {
!         eval { require Log::TraceMessages };
!         if ($@) {
!                 *t = sub {};
!                 *d = sub { '' };
!         }
!         else {
!                 *t = \&Log::TraceMessages::t;
!                 *d = \&Log::TraceMessages::d;
!         }
  }
  
--- 24,36 ----
  # Use Log::TraceMessages if installed.
  BEGIN {
!     eval { require Log::TraceMessages };
!     if ($@) {
!         *t = sub {};
!         *d = sub { '' };
!     }
!     else {
!         *t = \&Log::TraceMessages::t;
!         *d = \&Log::TraceMessages::d;
!     }
  }
  
***************
*** 38,49 ****
  
  sub AUTOLOAD {
!         use vars qw($AUTOLOAD);
!         (my $method_name = $AUTOLOAD) =~ s/.*::(.*?)/$1/;
!         (my $real_class_path = $real_class.".pm") =~ s/::/\//g;
  
!         require $real_class_path;
!         import $real_class_path;
  
!         $real_class->$method_name(@_);
  }
  
--- 38,49 ----
  
  sub AUTOLOAD {
!     use vars qw($AUTOLOAD);
!     (my $method_name = $AUTOLOAD) =~ s/.*::(.*?)/$1/;
!     (my $real_class_path = $real_class.".pm") =~ s/::/\//g;
  
!     require $real_class_path;
!     import $real_class_path;
  
!     $real_class->$method_name(@_);
  }
  
***************
*** 51,69 ****
  # Must be called before we use this module if we want to use a gui.
  sub init( $ ) {
!         my $opt_gui = shift;
  
!         # Ask the XMLTV::GUI module for the graphics type we will use
!         my $gui_type = XMLTV::GUI::get_gui_type($opt_gui);
  
!         if ($gui_type =~ /^term/) {
!                 $real_class = 'XMLTV::Ask::Term';
!         } elsif ($gui_type eq 'tk') {
!                 $real_class = 'XMLTV::Ask::Tk';
!         } else {
!                 die "Unknown gui type: '$gui_type'.";
!         }
  
!         # Initialise the ProgressBar module
!         XMLTV::ProgressBar::init($opt_gui);
  }
  
--- 51,69 ----
  # Must be called before we use this module if we want to use a gui.
  sub init( $ ) {
!     my $opt_gui = shift;
  
!     # Ask the XMLTV::GUI module for the graphics type we will use
!     my $gui_type = XMLTV::GUI::get_gui_type($opt_gui);
  
!     if ($gui_type =~ /^term/) {
!         $real_class = 'XMLTV::Ask::Term';
!     } elsif ($gui_type eq 'tk') {
!         $real_class = 'XMLTV::Ask::Tk';
!     } else {
!         die "Unknown gui type: '$gui_type'.";
!     }
  
!     # Initialise the ProgressBar module
!     XMLTV::ProgressBar::init($opt_gui);
  }
  


------------------------------------------------------------------------------
Don't Limit Your Business. Reach for the Cloud.
GigeNET's Cloud Solutions provide you with the tools and support that
you need to offload your IT needs and focus on growing your business.
Configured For All Businesses. Start Your Cloud Today.
https://www.gigenetcloud.com/