[PATCH] Fix warning with older versions of Perl
Bastien Nocera
hadess at hadess.net
Mon Sep 30 02:23:02 EDT 2013
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.
---
get_iplayer | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/get_iplayer b/get_iplayer
index 9e0e0b8..37a7087 100755
--- a/get_iplayer
+++ b/get_iplayer
@@ -2858,7 +2858,7 @@ sub cleanup {
unlink $namedpipe;
unlink $lockfile;
# Execute default signal handler
- $SIGORIG{$signal}->() if $SIGORIG{$signal};
+ $SIGORIG{\@$signal}->() if $SIGORIG{\@$signal};
exit 1;
}
--
1.8.3.1
More information about the get_iplayer
mailing list