r27335 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Nov 27 08:35:05 2008
New Revision: 27335

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27335
Log:
AptCache: trach where the info is from -- cache or parsed files

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27335&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Thu Nov 27 08:35:05 2008
@@ -94,7 +94,10 @@
 
 use base qw(Class::Accessor);
 __PACKAGE__->mk_accessors(
-    qw(cache homedir cache_file contents_dir contents_files verbose )
+    qw(
+        cache homedir cache_file contents_dir contents_files verbose
+        source
+    )
 );
 
 use Storable;
@@ -176,6 +179,7 @@
     }
 
     unless ($cache) {
+        $self->source('parsed files');
         $cache->{stamp}          = time;
         $cache->{contents_files} = [];
         $cache->{apt_contents}   = {};
@@ -222,6 +226,7 @@
         }
     }
     else {
+        $self->source('cache');
         $self->warning( 1,
             "Using cached Contents from "
             . localtime( $cache->{stamp} )