[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