diff options
| author | Chad Elliott <elliott_c@ociweb.com> | 2015-07-27 15:08:01 -0500 |
|---|---|---|
| committer | Chad Elliott <elliott_c@ociweb.com> | 2015-07-27 15:08:01 -0500 |
| commit | 4eeb758ec2aaf7278037a6fd09e959d5b1280d82 (patch) | |
| tree | ffbc55597bba82d18ea96fadfdc825cff1f13384 /modules/Creator.pm | |
| parent | f3bfbefad466a4e7cdfaffe20c69b10b7b017f6c (diff) | |
| download | MPC-4eeb758ec2aaf7278037a6fd09e959d5b1280d82.tar.gz | |
Mon Jul 27 20:04:02 UTC 2015 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/Creator.pm')
| -rw-r--r-- | modules/Creator.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/modules/Creator.pm b/modules/Creator.pm index 02809a55..b7a8a2d3 100644 --- a/modules/Creator.pm +++ b/modules/Creator.pm @@ -1116,7 +1116,7 @@ sub expand_variables { my $val = (defined $ti ? $ti->get_value($name) : undef); my @snames; if (defined $scopes) { - @snames = map { defined $_ ? $_ . '::' . $name : $name } @$scopes; + @snames = map { (defined $_ ? $_ : '') . '::' . $name : $name } @$scopes; } push(@snames, $name); my $arr = $self->adjust_value(\@snames, |