From 07b8d3ee85ebd2cdd286c5d34f8143cef2379f7e Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Tue, 25 Jun 2019 01:37:52 +0200
Subject: Fix cache when .cache does not exist

---
 lib/TgLib/Cache.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/TgLib/Cache.pm b/lib/TgLib/Cache.pm
index d3723b7..b6bb9e6 100644
--- a/lib/TgLib/Cache.pm
+++ b/lib/TgLib/Cache.pm
@@ -2,6 +2,7 @@ package TgLib::Cache;
 
 use Storable qw<store retrieve>;
 use File::Basename qw<dirname>;
+use File::Path qw<make_path>;
 
 use TgLib::Env qw<$CACHE_HOME>;
 
@@ -27,7 +28,7 @@ sub offset {
 
 sub save {
     my $cache = shift;
-    mkdir dirname $CACHE_FILE;
+    make_path dirname $CACHE_FILE;
     store($cache, $CACHE_FILE);
 }
 
-- 
cgit v1.2.3