xmltv/grab Get_nice.pm,1.33,1.34

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

Modified Files:
	Get_nice.pm 
Log Message:
Fix 'Possible precedence issue with control flow operator' warnings.

New versions of Perl (5.20+) warn (noisily) of precedence issues. In this
instance the 'or' side of the return statement would never be reached.


Index: Get_nice.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/Get_nice.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** Get_nice.pm	10 Aug 2015 10:39:07 -0000	1.33
--- Get_nice.pm	11 Aug 2015 09:16:09 -0000	1.34
***************
*** 205,209 ****
          return undef;
      } else {
!         return JSON::PP->new()->utf8(1)->decode($r->content) or die "cannot parse content of $url\n";
      }
  }
--- 205,210 ----
          return undef;
      } else {
!         my $content = JSON::PP->new()->utf8(1)->decode($r->content) or die "cannot parse content of $url\n";
!         return $content;
      }
  }


------------------------------------------------------------------------------