From 7c68c0a357fe5634c1e32a0c8ee169abe5faf95f Mon Sep 17 00:00:00 2001
From: dequis
Date: Sat, 7 Nov 2015 13:45:20 -0300
Subject: trigger.pl: Fix for newer perls

Pretty much just doing what the warning told me to do.

Done some testing and seems to behave as intended.
---
 scripts/trigger.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'scripts')

diff --git a/scripts/trigger.pl b/scripts/trigger.pl
index 6b88cbd..4b070e6 100644
--- a/scripts/trigger.pl
+++ b/scripts/trigger.pl
@@ -736,7 +736,7 @@ sub get_flags {
 	my ($chatnet, $channel, $nick, $address) = @_;
 	my $flags;
 	no strict 'refs';
-	if (defined %{ 'Irssi::Script::people::' }) {
+	if (%{ 'Irssi::Script::people::' }) {
 		if (defined ($channel)) {
 			$flags = (&{ 'Irssi::Script::people::find_local_flags' }($chatnet,$channel,$nick,$address));
 		} else {
@@ -745,7 +745,7 @@ sub get_flags {
 		$flags = join('',keys(%{$flags}));
 	} else {
 		my $shasta;
-		if (defined %{ 'Irssi::Script::friends_shasta::' }) {
+		if (%{ 'Irssi::Script::friends_shasta::' }) {
 			$shasta = 'friends_shasta';
 		} elsif (defined &{ 'Irssi::Script::friends::get_idx' }) {
 			$shasta = 'friends';
-- 
cgit v1.2.3