r59135 - in /trunk/nama: META.yml lib/Audio/Nama.pm t/12_nama.t

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Thu Jun 10 21:42:30 2010
New Revision: 59135

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59135
Log:
bring trunk back in sync with the 1.062 tarball

Modified:
    trunk/nama/META.yml
    trunk/nama/lib/Audio/Nama.pm
    trunk/nama/t/12_nama.t

Modified: trunk/nama/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/nama/META.yml?rev=59135&op=diff
==============================================================================
--- trunk/nama/META.yml (original)
+++ trunk/nama/META.yml Thu Jun 10 21:42:30 2010
@@ -34,4 +34,4 @@
   perl: 5.10.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 1.061
+version: 1.062

Modified: trunk/nama/lib/Audio/Nama.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/nama/lib/Audio/Nama.pm?rev=59135&op=diff
==============================================================================
--- trunk/nama/lib/Audio/Nama.pm (original)
+++ trunk/nama/lib/Audio/Nama.pm Thu Jun 10 21:42:30 2010
@@ -26,7 +26,7 @@
 package Audio::Nama;
 require 5.10.0;
 use vars qw($VERSION);
-$VERSION = 1.061;
+$VERSION = 1.062;
 use Modern::Perl;
 #use Carp::Always;
 no warnings qw(uninitialized syntax);
@@ -6935,7 +6935,7 @@
 			"All versions: ". join(" ", 
 				map { $_ . ( $cache_map->{$_} and 'c') } @{$this_track->versions}
 			). $/
-		} 
+		} else {}
 }
 
 

Modified: trunk/nama/t/12_nama.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/nama/t/12_nama.t?rev=59135&op=diff
==============================================================================
--- trunk/nama/t/12_nama.t (original)
+++ trunk/nama/t/12_nama.t Thu Jun 10 21:42:30 2010
@@ -959,5 +959,16 @@
 		$test_name);
 }
 
+sub cleanup { 	
+		unlink './test/Setup.ecs';
+		rmdir './test/.wav';
+		rmdir './test';
+		rmdir './untitled/.wav';
+		rmdir './untitled';
+		unlink './.effects_cache';
+		$term->rl_deprep_terminal();
+}
+
+cleanup();
 1;
 __END__