write out 02packages.details.txt.gz

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/Carton/Builder.pm b/lib/Carton/Builder.pm
index 8a2eed9..d03318f 100644
--- a/lib/Carton/Builder.pm
+++ b/lib/Carton/Builder.pm
@@ -41,6 +41,15 @@ sub bundle {
             warn "Couldn't find @{[ $dist->pathname ]}\n";
         }
     }
+
+    require IO::Compress::Gzip;
+    my $index = $cache_path->child("modules/02packages.details.txt.gz");
+    $index->parent->mkpath;
+
+    warn "Writing $index\n";
+    my $out = IO::Compress::Gzip->new($index->openw)
+      or die "gzip failed: $IO::Compress::Gzip::GzipError";
+    $snapshot->index->write($out);
 }
 
 sub install {