[Slim-Checkins] r8804 - /trunk/server/Slim/Utils/Timers.pm

[andy at svn.slimdevices.com]

Author: andy
Date: Fri Aug  4 21:27:25 2006
New Revision: 8804

URL: http://svn.slimdevices.com?rev=8804&view=rev
Log:
Timer objRef can be undef, added some code to avoid warnings

Modified:
    trunk/server/Slim/Utils/Timers.pm

Modified: trunk/server/Slim/Utils/Timers.pm
URL: http://svn.slimdevices.com/trunk/server/Slim/Utils/Timers.pm?rev=8804&r1=8803&r2=8804&view=diff
==============================================================================
--- trunk/server/Slim/Utils/Timers.pm (original)
+++ trunk/server/Slim/Utils/Timers.pm Fri Aug  4 21:27:25 2006
@@ -328,7 +328,7 @@
 	my @killed = $normal->remove_items( sub {
 		my $timer = shift;
 		if ( $timer->{subptr} eq $subptr ) {
-			if ( $timer->{objRef} eq $objRef ) {
+			if ( $timer->{objRef} && $timer->{objRef} eq $objRef ) {
 				return 1;
 			}
 		}
@@ -348,7 +348,7 @@
 	my @killed = $high->remove_items( sub {
 		my $timer = shift;
 		if ( $timer->{subptr} eq $subptr ) {
-			if ( $timer->{objRef} eq $objRef ) {
+			if ( $timer->{objRef} && $timer->{objRef} eq $objRef ) {
 				return 1;
 			}
 		}
@@ -371,7 +371,7 @@
 	my @killed = $normal->remove_items( sub {
 		my $timer = shift;
 		if ( $timer->{subptr} eq $subptr ) {
-			if ( $timer->{objRef} eq $objRef ) {
+			if ( $timer->{objRef} && $timer->{objRef} eq $objRef ) {
 				return 1;
 			}
 		}
@@ -385,7 +385,7 @@
 	$high->remove_items( sub {
 		my $timer = shift;
 		if ( $timer->{subptr} eq $subptr ) {
-			if ( $timer->{objRef} eq $objRef ) {
+			if ( $timer->{objRef} && $timer->{objRef} eq $objRef ) {
 				return 1;
 			}
 		}
@@ -401,7 +401,7 @@
 	
 	$high->remove_items( sub {
 		my $timer = shift;
-		if ( $timer->{objRef} eq $objRef ) {
+		if ( $timer->{objRef} && $timer->{objRef} eq $objRef ) {
 			return 1;
 		}
 		return 0;
@@ -409,7 +409,7 @@
 	
 	$normal->remove_items( sub {
 		my $timer = shift;
-		if ( $timer->{objRef} eq $objRef ) {
+		if ( $timer->{objRef} && $timer->{objRef} eq $objRef ) {
 			return 1;
 		}
 		return 0;
@@ -441,7 +441,7 @@
 	my @normal = $normal->peek_items( sub {
 		my $timer = shift;
 		if ( $timer->{subptr} eq $subptr ) {
-			if ( $timer->{objRef} eq $objRef ) {
+			if ( $timer->{objRef} && $timer->{objRef} eq $objRef ) {
 				return 1;
 			}
 		}
@@ -470,7 +470,7 @@
 	$high->peek_items( sub {
 		my $timer = shift;
 		if ( $timer->{subptr} eq $subptr ) {
-			if ( $timer->{objRef} eq $objRef ) {
+			if ( $timer->{objRef} && $timer->{objRef} eq $objRef ) {
 				$count++;
 			}
 		}
@@ -479,7 +479,7 @@
 	$normal->peek_items( sub {
 		my $timer = shift;
 		if ( $timer->{subptr} eq $subptr ) {
-			if ( $timer->{objRef} eq $objRef ) {
+			if ( $timer->{objRef} && $timer->{objRef} eq $objRef ) {
 				$count++;
 			}
 		}