r53677 - in /trunk/dh-make-perl: debian/changelog lib/Debian/WNPP/Query.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sat Mar  6 12:43:55 2010
New Revision: 53677

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53677
Log:
create WNPP cache dir on cache store

Closes: 572278. Thanks to Daniel Kahn Gillmor.

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/lib/Debian/WNPP/Query.pm

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=53677&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Sat Mar  6 12:43:55 2010
@@ -12,6 +12,8 @@
   * package_already_exists: fix a 'Can't modify non-lvalue subroutine call'
     warning. Thanks to Jozef Kutej for the report and the patch.
   * overrides mechanism deprecated
+  * create WNPP cache dir on cache store.
+    Closes: 572278. Thanks to Daniel Kahn Gillmor.
 
  -- Damyan Ivanov <dmn at debian.org>  Fri, 19 Feb 2010 22:47:26 +0200
 

Modified: trunk/dh-make-perl/lib/Debian/WNPP/Query.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/WNPP/Query.pm?rev=53677&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/WNPP/Query.pm (original)
+++ trunk/dh-make-perl/lib/Debian/WNPP/Query.pm Sat Mar  6 12:43:55 2010
@@ -43,6 +43,8 @@
 
 use autodie;
 use Debian::WNPP::Bug;
+use File::Basename qw(dirname);
+use File::Path;
 use Storable ();
 use WWW::Mechanize ();
 
@@ -89,6 +91,8 @@
     my $self = shift;
 
     return unless $self->cache_file;
+
+    File::Path::make_path( dirname( $self->cache_file ) );
 
     $self->_cache->{timestamp} = scalar(time);