diff options
Diffstat (limited to 'lib/App/Dthumb')
-rw-r--r-- | lib/App/Dthumb/Data.pm.PL | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL index eaf914e..a0fb4f5 100644 --- a/lib/App/Dthumb/Data.pm.PL +++ b/lib/App/Dthumb/Data.pm.PL @@ -103,7 +103,10 @@ B<get> function, dthumb will replace occurences of "<!-- $key -->" or "/* $key sub set_vars { my ($self, %vars) = @_; - $self->{replace} = \%vars; + + while (my ($key, $value) = each(%vars)) { + $self->{replace}->{$key} = $value; + } } |