xmltv/grab Get_nice.pm,1.25,1.26

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

Modified Files:
	Get_nice.pm 
Log Message:
(minor) Expose the LWP response object ($Response)

Index: Get_nice.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/Get_nice.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** Get_nice.pm	16 Jan 2014 11:38:54 -0000	1.25
--- Get_nice.pm	20 Jan 2014 11:43:01 -0000	1.26
***************
*** 33,36 ****
--- 33,37 ----
  # 0.005065 : new methods get_nice_json(), get_nice_xml()
  # 0.005065 : add utf8 decode option to get_nice_tree()
+ # 0.005065 : expose the LWP response object ($Response)
  our $VERSION = 0.005065;
  
***************
*** 42,45 ****
--- 43,47 ----
  our $MinDelay = 0; # in seconds
  our $FailOnError = 1; # Fail on fetch error
+ our $Response; # LWP response object
  
  
***************
*** 143,146 ****
--- 145,151 ----
      $last_get_time = time();
  
+ 		# expose the response object for those grabbers which need to process the headers, status code, etc.
+ 		$Response = $r;
+ 		
      if ($r->is_error) {
          # At the moment download failures seem rare, so the script dies if


------------------------------------------------------------------------------
CenturyLink Cloud: The Leader in Enterprise Cloud Services.
Learn Why More Businesses Are Choosing CenturyLink Cloud For
Critical Workloads, Development Environments & Everything In Between.
Get a Quote or Start a Free Trial Today. 
http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk