[Slimp3-checkins] CVS: slimp3/server/lib/SliMP3/Buttons Common.pm,1.24,1.25

[dean b. <bla...@us...>]

Update of /cvsroot/slimp3/slimp3/server/lib/SliMP3/Buttons
In directory usw-pr-cvs1:/tmp/cvs-serv25346/lib/SliMP3/Buttons

Modified Files:
	Common.pm 
Log Message:
No warnings when pushing a number button in an empty list.


Index: Common.pm
===================================================================
RCS file: /cvsroot/slimp3/slimp3/server/lib/SliMP3/Buttons/Common.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Common.pm	28 Feb 2002 04:23:02 -0000	1.24
--- Common.pm	28 Feb 2002 16:48:03 -0000	1.25
***************
*** 307,310 ****
--- 307,314 ----
  	
  	my $listsize = scalar @{$listref};
+ 	
+ 	if ($listsize <= 1) {
+ 		return 0;
+ 	}
  
  	# optional reference to subroutine that takes a single parameter