tweak header info for perl quick mode

avoids small xdelta

diff --git a/zgz/zgz.c b/zgz/zgz.c
index 5593fc3..29f814b 100644 (file)
--- a/zgz/zgz.c
+++ b/zgz/zgz.c
@@ -261,6 +261,13 @@ main(int argc, char **argv)
                        } else if (strcmp(optarg, "perl") == 0) {
                                /* Perl's Compress::Raw::Zlib */
                                memlevel = 9;
+
+                               /* no name or timestamp information */
+                               nflag = 1;
+                               mflag = 1;
+                               /* maximum compression but without indicating so */
+                               level = 9;
+                               xflag = 0;
                        } else {
                                fprintf(stderr, "%s: unknown quirk!\n", progname);
                                usage();