[PATCH] Fix warning with older versions of Perl

[Bastien Nocera]

On Mon, 2013-09-30 at 23:52 +0100, dinkypumpkin wrote:
> On 30/09/2013 07:23, Bastien Nocera wrote:
> > Perl as shipped on the Synology NASes generates warnings
> > when get_iplayer tries to override the Ctrl+C handling:
> > Can't use string ("IGNORE") as a subroutine ref while "strict refs" in use at /usr/local/get_iplayer/bin//get_iplayer line 2859.
> 
> That doesn't look like it has anything to do with the version of Perl in 
> use on your machine, ancient though it may be. It appears your perl 
> explicitly ignores SIGINT by default, which get_iplayer doesn't expect. 
>   Please run the command below and reply with the result:
> 
> perl -e 'while ( ($k, $v) = each %SIG ) { print "$k=$v\n"; }'

TRAP=
NUM42=
URG=
STOP=
NUM39=
NUM62=
NUM43=
USR2=
NUM57=
NUM56=
RTMAX=
NUM59=
VTALRM=
CONT=
NUM45=
NUM61=
TERM=
NUM44=
NUM36=
BUS=
NUM40=
NUM51=
IOT=
STKFLT=
NUM41=
KILL=
QUIT=
NUM37=
NUM50=
ABRT=
NUM48=
NUM34=
NUM35=
NUM38=
CLD=
TTOU=
IO=
TSTP=
PROF=
NUM53=
NUM58=
SEGV=
RTMIN=
POLL=
PIPE=
SYS=
NUM46=
PWR=
CHLD=
HUP=
FPE=IGNORE
NUM54=
XCPU=
TTIN=
NUM52=
NUM55=
XFSZ=
NUM33=
INT=
NUM49=
UNUSED=
WINCH=
USR1=
ILL=
ALRM=
NUM47=
NUM60=