}
sub _config_substitutions {
- my ($self, $name, $subs) = @_;
+ my ( $self, $name, $subs, $arg ) = @_;
$subs->{ HOME } ||= sub { shift->path_to( '' ); };
$subs->{ ENV } ||=
$subs->{ literal } ||= sub { return $_[ 1 ]; };
my $subsre = join( '|', keys %$subs );
- for ( @_ ) {
- my $arg = $_;
- $arg =~ s{__($subsre)(?:\((.+?)\))?__}{ $subs->{ $1 }->( $name, $2 ? split( /,/, $2 ) : () ) }eg;
- return $arg;
- }
+ $arg =~ s{__($subsre)(?:\((.+?)\))?__}{ $subs->{ $1 }->( $name, $2 ? split( /,/, $2 ) : () ) }eg;
+ return $arg;
}
1;