r58876 - in /branches/upstream/libaudio-nama-perl/current: META.yml lib/Audio/Nama.pm

[bolangi-guest at users.alioth.debian.org]

Author: bolangi-guest
Date: Sat Jun  5 05:46:05 2010
New Revision: 58876

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58876
Log:
[svn-upgrade] Integrating new upstream version, libaudio-nama-perl (1.06)

Modified:
    branches/upstream/libaudio-nama-perl/current/META.yml
    branches/upstream/libaudio-nama-perl/current/lib/Audio/Nama.pm

Modified: branches/upstream/libaudio-nama-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-nama-perl/current/META.yml?rev=58876&op=diff
==============================================================================
--- branches/upstream/libaudio-nama-perl/current/META.yml (original)
+++ branches/upstream/libaudio-nama-perl/current/META.yml Sat Jun  5 05:46:05 2010
@@ -34,4 +34,4 @@
   perl: 5.10.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 1.059
+version: 1.06

Modified: branches/upstream/libaudio-nama-perl/current/lib/Audio/Nama.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-nama-perl/current/lib/Audio/Nama.pm?rev=58876&op=diff
==============================================================================
--- branches/upstream/libaudio-nama-perl/current/lib/Audio/Nama.pm (original)
+++ branches/upstream/libaudio-nama-perl/current/lib/Audio/Nama.pm Sat Jun  5 05:46:05 2010
@@ -26,7 +26,7 @@
 package Audio::Nama;
 require 5.10.0;
 use vars qw($VERSION);
-$VERSION = 1.059;
+$VERSION = 1.060;
 use Modern::Perl;
 #use Carp::Always;
 no warnings qw(uninitialized syntax);
@@ -3532,15 +3532,20 @@
 }
 
 sub ladspa_plugin_list {
-	my @filenames;
+	my @plugins;
+	my %seen;
 	for my $dir ( split ':', ladspa_path()){
 		{no autodie 'opendir';
-			opendir DIR, $dir or carp "failed to open directory $dir: $!\n";
+			opendir DIR, $dir 
+				or carp("failed to open directory $dir: $!\n"), next;
 		}
-		push @filenames,  map{"$dir/$_"} grep{ /.so$/ } readdir DIR;
+		push @plugins,  
+			map{"$dir/$_"} 						# full path
+			grep{ ! $seen{$_} and ++$seen{$_}}  # skip seen plugins
+			grep{ /\.so$/} readdir DIR;			# get .so files
 		closedir DIR;
 	}
-	@filenames;
+	@plugins
 }
 
 sub new_plugins {
@@ -3756,14 +3761,7 @@
 	my @dirs =  split ':', ladspa_path();
 	my $data = '';
 	my %seen = ();
-	my @plugins;
-	for my $dir (@dirs) {
-		opendir DIR, $dir or carp qq(can't open LADSPA dir "$dir" for read: $!\n);
-	
-		push @plugins,  
-			grep{ /\.so$/ and ! $seen{$_} and ++$seen{$_}} readdir DIR;
-		closedir DIR;
-	};
+	my @plugins = ladspa_plugin_list();
 	#pager join $/, @plugins;
 
 	# use these regexes to snarf data