--- Parse.pm	2005-04-29 05:52:00.000000000 -0700
+++ Slim/Formats/Parse.pm	2005-05-06 16:03:04.421875000 -0700
@@ -643,8 +643,15 @@ sub readWPL {
 	$::d_parse && Slim::Utils::Misc::msg("parsing WPL: $wplfile\n");
 
 	if (exists($wpl_playlist->{body}->{seq}->{media})) {
-
-		for my $entry_info (@{$wpl_playlist->{body}->{seq}->{media}}) {
+		
+		my @media;
+		if (ref $wpl_playlist->{body}->{seq}->{media} ne 'ARRAY') {
+			push @media, $wpl_playlist->{body}->{seq}->{media};
+		} else {
+			@media = @{$wpl_playlist->{body}->{seq}->{media}};
+		}
+		
+		for my $entry_info (@media) {
 
 			my $entry=$entry_info->{src};