xmltv/lib ProgressBar.pm,1.3,1.4

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

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

Index: ProgressBar.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/ProgressBar.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ProgressBar.pm	12 Jul 2015 03:26:15 -0000	1.3
--- ProgressBar.pm	12 Jul 2015 04:19:53 -0000	1.4
***************
*** 12,21 ****
      eval { require Log::TraceMessages };
      if ($@) {
!          *t = sub {};
!          *d = sub { '' };
      }
      else {
!          *t = \&Log::TraceMessages::t;
!          *d = \&Log::TraceMessages::d;
      }
  }
--- 12,21 ----
      eval { require Log::TraceMessages };
      if ($@) {
!         *t = sub {};
!         *d = sub { '' };
      }
      else {
!         *t = \&Log::TraceMessages::t;
!         *d = \&Log::TraceMessages::d;
      }
  }
***************
*** 32,42 ****
  
      if ($gui_type eq 'term') {
!          $real_class = 'XMLTV::ProgressBar::None';
      } elsif ($gui_type eq 'term+progressbar') {
!          $real_class = 'XMLTV::ProgressBar::Term';
      } elsif ($gui_type eq 'tk') {
!          $real_class = 'XMLTV::ProgressBar::Tk';
      } else {
!          die "Unknown gui type: '$gui_type'.";
      }
  }
--- 32,42 ----
  
      if ($gui_type eq 'term') {
!         $real_class = 'XMLTV::ProgressBar::None';
      } elsif ($gui_type eq 'term+progressbar') {
!         $real_class = 'XMLTV::ProgressBar::Term';
      } elsif ($gui_type eq 'tk') {
!         $real_class = 'XMLTV::ProgressBar::Tk';
      } else {
!         die "Unknown gui type: '$gui_type'.";
      }
  }
***************
*** 76,80 ****
      # Only does anything for the GUI ones.
      if ($real_class eq 'XMLTV::ProgressBar::Tk') {
!          return $bar->finish();
      }
  }
--- 76,80 ----
      # Only does anything for the GUI ones.
      if ($real_class eq 'XMLTV::ProgressBar::Tk') {
!         return $bar->finish();
      }
  }


------------------------------------------------------------------------------
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/