add debugging

diff --git a/pristine-gz b/pristine-gz
index 3cf0679..f26a822 100755 (executable)
--- a/pristine-gz
+++ b/pristine-gz
@@ -229,6 +229,8 @@ sub reproducegz($$$) {
 
        # read fields from gzip headers
        my ($flags, $timestamp, $level, $os, $name) = readgzip($new);
+       debug("flags: [".join(", ", @$flags).
+               "] timestamp: $timestamp level: $level os: $os name: $name");
 
        # try to guess the gzip arguments that are needed by the header
        # information