Remove indirect object notation

diff --git a/scripts/clean_cache.pl b/scripts/clean_cache.pl
index 9516ef8ab953234157a7ae603668d98817b08255..e225199507dfb6b303802c9e502d5d412cb51b41 100755 (executable)
--- 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;