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
bolangi-guest at users.alioth.debian.org
Mon Aug 9 06:43:28 UTC 2010
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 {
More information about the Pkg-perl-cvs-commits
mailing list