diff options
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Cache/Parsed.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/File/Cache/Parsed.pm b/lib/File/Cache/Parsed.pm index 7792cf1..1546ef1 100644 --- a/lib/File/Cache/Parsed.pm +++ b/lib/File/Cache/Parsed.pm @@ -76,9 +76,11 @@ sub put { my $ww=first {$filename =~ m{$_->[0]}} @{$self->{writers}}; if ($ww) { + $self->{cache}{$filename}=$contents; return $ww->[1]->($filename,$contents); } elsif (!ref($contents)) { + $self->{cache}{$filename}=$contents; return print {file($filename)->openw} $contents; } else { |