diff options
author | joeyh <joeyh@19660600-52fe-0310-9875-adc0d7a7b53c> | 2007-10-02 19:06:28 +0000 |
---|---|---|
committer | joeyh <joeyh@19660600-52fe-0310-9875-adc0d7a7b53c> | 2007-10-02 19:06:28 +0000 |
commit | d50a5a7c03c073fd99381a7721711b37aafc8ba7 (patch) | |
tree | fdb753aac99daacc5a81de60ed3dcce052dd490a /pristine-gz | |
parent | 8becd50616a0e8e78eb54ebcf233278e27a7a0c7 (diff) | |
download | pristine-tar-d50a5a7c03c073fd99381a7721711b37aafc8ba7.tar.gz pristine-tar-d50a5a7c03c073fd99381a7721711b37aafc8ba7.tar.bz2 pristine-tar-d50a5a7c03c073fd99381a7721711b37aafc8ba7.zip |
add debugging
Diffstat (limited to 'pristine-gz')
-rwxr-xr-x | pristine-gz | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pristine-gz b/pristine-gz index 3cf0679..f26a822 100755 --- 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 |