From 28543b928d8c7cd15935dab2a29b52b16289fa7a Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Sat, 4 Jul 2020 15:18:10 +0200
Subject: [PATCH] Remove indirect object notation

---
 scripts/clean_cache.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/clean_cache.pl b/scripts/clean_cache.pl
index 9516ef8..e225199 100755
--- a/scripts/clean_cache.pl
+++ b/scripts/clean_cache.pl
@@ -9,7 +9,7 @@ use lib "$FindBin::Bin/../lib";
 
 use Cache::FileCache;
 
-my $cache = new Cache::FileCache({cache_root => "/tmp/ndweb-$<", namespace => 'cache'} );
+my $cache = Cache::FileCache->new({cache_root => "/tmp/ndweb-$<", namespace => 'cache'});
 
 $cache->purge;
 
-- 
2.39.2