r61449 - in /branches/upstream/nama/current: Changes META.yml Makefile.PL lib/Audio/Nama.pm lib/Audio/Nama/Assign.pm

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

Author: bolangi-guest
Date: Mon Aug  9 06:42:37 2010
New Revision: 61449

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=61449
Log:
[svn-upgrade] new version nama (1.064)

Modified:
    branches/upstream/nama/current/Changes
    branches/upstream/nama/current/META.yml
    branches/upstream/nama/current/Makefile.PL
    branches/upstream/nama/current/lib/Audio/Nama.pm
    branches/upstream/nama/current/lib/Audio/Nama/Assign.pm

Modified: branches/upstream/nama/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/nama/current/Changes?rev=61449&op=diff
==============================================================================
--- branches/upstream/nama/current/Changes (original)
+++ branches/upstream/nama/current/Changes Mon Aug  9 06:42:37 2010
@@ -1,4 +1,7 @@
 Changes to Audio::Nama
+
+1.064  August 6, 2010
+      - fix Bug rt.cpan.org #60024: Audio::Nama::Assign::expand_tilde()
 
 1.063  August 2, 2010
 

Modified: branches/upstream/nama/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/nama/current/META.yml?rev=61449&op=diff
==============================================================================
--- branches/upstream/nama/current/META.yml (original)
+++ branches/upstream/nama/current/META.yml Mon Aug  9 06:42:37 2010
@@ -19,6 +19,7 @@
   Event: 0
   File::Copy::Link: 0
   File::Find::Rule: 0
+  File::HomeDir: 0
   File::Temp: 0
   Graph: 0
   IO::All: 0
@@ -34,4 +35,4 @@
   perl: 5.10.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 1.063
+version: 1.064

Modified: branches/upstream/nama/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/nama/current/Makefile.PL?rev=61449&op=diff
==============================================================================
--- branches/upstream/nama/current/Makefile.PL (original)
+++ branches/upstream/nama/current/Makefile.PL Mon Aug  9 06:42:37 2010
@@ -16,6 +16,7 @@
 		Event => 0,
 		File::Find::Rule => 0,
 		File::Copy::Link => 0,
+		File::HomeDir => 0,
 		File::Temp => 0,
 		Graph => 0,
 		IO::All => 0,

Modified: branches/upstream/nama/current/lib/Audio/Nama.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/nama/current/lib/Audio/Nama.pm?rev=61449&op=diff
==============================================================================
--- branches/upstream/nama/current/lib/Audio/Nama.pm (original)
+++ branches/upstream/nama/current/lib/Audio/Nama.pm Mon Aug  9 06:42:37 2010
@@ -26,7 +26,7 @@
 package Audio::Nama;
 require 5.10.0;
 use vars qw($VERSION);
-$VERSION = 1.063;
+$VERSION = 1.064;
 use Modern::Perl;
 #use Carp::Always;
 no warnings qw(uninitialized syntax);
@@ -4548,6 +4548,9 @@
 sub command_process {
 	my $input = shift;
 	my $input_was = $input;
+
+	# parse repeatedly until all input is consumed
+	
 	while ($input =~ /\S/) { 
 		$debug and say "input: $input";
 		$parser->meta(\$input) or print("bad command: $input_was\n"), last;
@@ -8193,7 +8196,8 @@
 	1;
 }
 bunch_spec: text 
-meta: text semicolon(?) { $Audio::Nama::parser->do_part($item{text}) }
+meta: nosemi(s /\s*;\s*/) semicolon(?) 
+nosemi: text { $Audio::Nama::parser->do_part($item{text}) }
 text: /[^;]+/ 
 semicolon: ';'
 do_part: track_spec command

Modified: branches/upstream/nama/current/lib/Audio/Nama/Assign.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/nama/current/lib/Audio/Nama/Assign.pm?rev=61449&op=diff
==============================================================================
--- branches/upstream/nama/current/lib/Audio/Nama/Assign.pm (original)
+++ branches/upstream/nama/current/lib/Audio/Nama/Assign.pm Mon Aug  9 06:42:37 2010
@@ -7,6 +7,7 @@
 use Carp;
 use YAML::Tiny;
 use IO::All;
+use File::HomeDir;
 use Storable;
 #use Devel::Cycle;
 
@@ -351,13 +352,16 @@
 sub expand_tilde { 
 	my $path = shift; 
 
+ 	my $home = File::HomeDir->my_home;
+
+
 	# ~bob -> /home/bob
 	$path =~ s(
 		^ 		# beginning of line
 		~ 		# tilde
 		(\w+) 	# username
 	)
-	(/home/$1)x;
+	(File::HomeDir->users_home($1))ex;
 
 	# ~/something -> /home/bob/something
 	$path =~ s( 
@@ -365,7 +369,7 @@
 		~		# tilde
 		/		# slash
 	)
-	($ENV{HOME}/)x;
+	($home/)x;
 	$path
 }
 sub read_file {