|
40
|
0 |
28 |
unless &GetOptions("zip64", \$zip64, "method=s", \&main::lookupMethod, 0, sub {
$level = 0;
}
, 1, sub {
$level = 1;
}
, 2, sub {
$level = 2;
}
, 3, sub {
$level = 3;
}
, 4, sub {
$level = 4;
}
, 5, sub {
$level = 5;
}
, 6, sub {
$level = 6;
}
, 7, sub {
$level = 7;
}
, 8, sub {
$level = 8;
}
, 9, sub {
$level = 9;
}
, "stream", \$stream, "zipfile=s", \$zipfile, "member-name=s", \$memberName, "version", sub {
print "$VERSION\n";
exit 0;
}
, "help", \&main::Usage) |
|
58
|
0 |
28 |
unless zip("-", $zipfile, "Name", $memberName, "Zip64", $zip64, "Method", $compression_method, "Stream", $stream, @extraOpts) |