Profile of IO/Uncompress/Gunzip.pm

Filename	/usr/libdata/perl5/amd64-openbsd/IO/Uncompress/Gunzip.pm
Statements	Executed 15518 statements in 55.3ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
80	1	1	118ms	476ms	IO::Uncompress::Gunzip::_readGzipHeader
40	1	1	7.80ms	11.0s	IO::Uncompress::Gunzip::::newIO::Uncompress::Gunzip::new
80	2	2	2.25ms	10.1s	IO::Uncompress::Gunzip::::ckMagicIO::Uncompress::Gunzip::ckMagic
1	1	1	1.60ms	43.8ms	IO::Uncompress::Gunzip::::BEGIN@12IO::Uncompress::Gunzip::BEGIN@12
1	1	1	1.07ms	3.00ms	IO::Uncompress::Gunzip::::BEGIN@16IO::Uncompress::Gunzip::BEGIN@16
40	1	1	1.05ms	1.05ms	IO::Uncompress::Gunzip::getExtraParams
80	1	1	967µs	1.20ms	IO::Uncompress::Gunzip::::isGzipMagicIO::Uncompress::Gunzip::isGzipMagic
1	1	1	873µs	1.23ms	IO::Uncompress::Gunzip::::BEGIN@17IO::Uncompress::Gunzip::BEGIN@17
80	2	2	778µs	477ms	IO::Uncompress::Gunzip::::readHeaderIO::Uncompress::Gunzip::readHeader
1	1	1	637µs	642µs	IO::Uncompress::Gunzip::::BEGIN@10IO::Uncompress::Gunzip::BEGIN@10
40	1	1	627µs	1.91ms	IO::Uncompress::Gunzip::::ckParamsIO::Uncompress::Gunzip::ckParams
41	1	1	588µs	663µs	IO::Uncompress::Gunzip::::chkTrailerIO::Uncompress::Gunzip::chkTrailer
201	3	1	467µs	467µs	IO::Uncompress::Gunzip::::CORE:unpackIO::Uncompress::Gunzip::CORE:unpack (opcode)
1	1	1	76µs	138µs	IO::Uncompress::Gunzip::::BEGIN@9IO::Uncompress::Gunzip::BEGIN@9
1	1	1	62µs	99µs	IO::Uncompress::Gunzip::::BEGIN@8IO::Uncompress::Gunzip::BEGIN@8
1	1	1	30µs	37µs	IO::Uncompress::Gunzip::::BEGIN@14IO::Uncompress::Gunzip::BEGIN@14
1	1	1	14µs	144µs	IO::Uncompress::Gunzip::::BEGIN@15IO::Uncompress::Gunzip::BEGIN@15
0	0	0	0s	0s	IO::Uncompress::Gunzip::_readFullGzipHeader
0	0	0	0s	0s	IO::Uncompress::Gunzip::::gunzipIO::Uncompress::Gunzip::gunzip

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1
2					package IO::Uncompress::Gunzip ;
3
4	1	7µs			require 5.006 ;
5
6					# for RFC1952
7
8	2	144µs	2	137µs	# spent 99µs (62+37) within IO::Uncompress::Gunzip::BEGIN@8 which was called: # once (62µs+37µs) by OpenBSD::PackageRepository::uncompress at line 8 use strict ; # spent 99µs making 1 call to IO::Uncompress::Gunzip::BEGIN@8 # spent 37µs making 1 call to strict::import
9	2	103µs	2	200µs	# spent 138µs (76+62) within IO::Uncompress::Gunzip::BEGIN@9 which was called: # once (76µs+62µs) by OpenBSD::PackageRepository::uncompress at line 9 use warnings; # spent 138µs making 1 call to IO::Uncompress::Gunzip::BEGIN@9 # spent 62µs making 1 call to warnings::import
10	2	652µs	2	646µs	# spent 642µs (637+4) within IO::Uncompress::Gunzip::BEGIN@10 which was called: # once (637µs+4µs) by OpenBSD::PackageRepository::uncompress at line 10 use bytes; # spent 642µs making 1 call to IO::Uncompress::Gunzip::BEGIN@10 # spent 4µs making 1 call to bytes::import
11
12	3	312µs	3	43.9ms	# spent 43.8ms (1.60+42.2) within IO::Uncompress::Gunzip::BEGIN@12 which was called: # once (1.60ms+42.2ms) by OpenBSD::PackageRepository::uncompress at line 12 use IO::Uncompress::RawInflate 2.069 ; # spent 43.8ms making 1 call to IO::Uncompress::Gunzip::BEGIN@12 # spent 25µs making 1 call to Exporter::import # spent 9µs making 1 call to UNIVERSAL::VERSION
13
14	3	63µs	2	44µs	# spent 37µs (30+7) within IO::Uncompress::Gunzip::BEGIN@14 which was called: # once (30µs+7µs) by OpenBSD::PackageRepository::uncompress at line 14 use Compress::Raw::Zlib 2.069 () ; # spent 37µs making 1 call to IO::Uncompress::Gunzip::BEGIN@14 # spent 7µs making 1 call to UNIVERSAL::VERSION
15	3	43µs	3	274µs	# spent 144µs (14+130) within IO::Uncompress::Gunzip::BEGIN@15 which was called: # once (14µs+130µs) by OpenBSD::PackageRepository::uncompress at line 15 use IO::Compress::Base::Common 2.069 qw(:Status ); # spent 144µs making 1 call to IO::Uncompress::Gunzip::BEGIN@15 # spent 123µs making 1 call to Exporter::import # spent 7µs making 1 call to UNIVERSAL::VERSION
16	3	147µs	3	3.32ms	# spent 3.00ms (1.07+1.93) within IO::Uncompress::Gunzip::BEGIN@16 which was called: # once (1.07ms+1.93ms) by OpenBSD::PackageRepository::uncompress at line 16 use IO::Compress::Gzip::Constants 2.069 ; # spent 3.00ms making 1 call to IO::Uncompress::Gunzip::BEGIN@16 # spent 304µs making 1 call to Exporter::import # spent 9µs making 1 call to UNIVERSAL::VERSION
17	3	1.12ms	2	1.24ms	# spent 1.23ms (873µs+360µs) within IO::Uncompress::Gunzip::BEGIN@17 which was called: # once (873µs+360µs) by OpenBSD::PackageRepository::uncompress at line 17 use IO::Compress::Zlib::Extra 2.069 ; # spent 1.23ms making 1 call to IO::Uncompress::Gunzip::BEGIN@17 # spent 7µs making 1 call to UNIVERSAL::VERSION
18
19	1	1µs			require Exporter ;
20
21					our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GunzipError);
22
23	1	10µs			@ISA = qw( Exporter IO::Uncompress::RawInflate );
24	1	1µs			@EXPORT_OK = qw( $GunzipError gunzip );
25	1	1µs			%EXPORT_TAGS = %IO::Uncompress::RawInflate::DEFLATE_CONSTANTS ;
26	1	2µs			push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
27	1	4µs	1	22µs	Exporter::export_ok_tags('all'); # spent 22µs making 1 call to Exporter::export_ok_tags
28
29	1	800ns			$GunzipError = '';
30
31	1	600ns			$VERSION = '2.069_001';
32
33					sub new
34					# spent 11.0s (7.80ms+11.0) within IO::Uncompress::Gunzip::new which was called 40 times, avg 275ms/call: # 40 times (7.80ms+11.0s) by OpenBSD::PackageRepository::uncompress at line 404 of OpenBSD/PackageRepository.pm, avg 275ms/call {
35	40	552µs			my $class = shift ;
36	40	1.07ms			$GunzipError = '';
37	40	3.74ms	40	25.3ms	my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$GunzipError); # spent 25.3ms making 40 calls to IO::Compress::Base::Common::createSelfTiedObject, avg 632µs/call
38
39	40	2.13ms	40	11.0s	$obj->_create(undef, 0, @_); # spent 11.0s making 40 calls to IO::Uncompress::Base::_create, avg 274ms/call
40					}
41
42					sub gunzip
43					{
44					my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$GunzipError);
45					return $obj->_inf(@_) ;
46					}
47
48					sub getExtraParams
49					# spent 1.05ms within IO::Uncompress::Gunzip::getExtraParams which was called 40 times, avg 26µs/call: # 40 times (1.05ms+0s) by IO::Uncompress::Base::checkParams at line 350 of IO/Uncompress/Base.pm, avg 26µs/call {
50	40	9.26ms			return ( 'parseextra' => [IO::Compress::Base::Common::Parse_boolean, 0] ) ;
51					}
52
53					sub ckParams
54					# spent 1.91ms (627µs+1.28) within IO::Uncompress::Gunzip::ckParams which was called 40 times, avg 48µs/call: # 40 times (627µs+1.28ms) by IO::Uncompress::Base::_create at line 411 of IO/Uncompress/Base.pm, avg 48µs/call {
55	40	47µs			my $self = shift ;
56	40	44µs			my $got = shift ;
57
58					# gunzip always needs crc32
59	40	647µs	40	1.28ms	$got->setValue('crc32' => 1); # spent 1.28ms making 40 calls to IO::Compress::Base::Parameters::setValue, avg 32µs/call
60
61	40	194µs			return 1;
62					}
63
64					sub ckMagic
65					# spent 10.1s (2.25ms+10.1) within IO::Uncompress::Gunzip::ckMagic which was called 80 times, avg 127ms/call: # 40 times (1.20ms+10.1s) by IO::Uncompress::RawInflate::mkUncomp at line 87 of IO/Uncompress/RawInflate.pm, avg 254ms/call # 40 times (1.05ms+1.21ms) by IO::Uncompress::Base::gotoNextStream at line 1040 of IO/Uncompress/Base.pm, avg 57µs/call {
66	80	99µs			my $self = shift;
67
68	80	68µs			my $magic ;
69	80	1.25ms	80	10.1s	$self->smartReadExact(\$magic, GZIP_ID_SIZE); # spent 10.1s making 80 calls to IO::Uncompress::Base::smartReadExact, avg 127ms/call
70
71	80	215µs			*$self->{HeaderPending} = $magic ;
72
73	80	421µs			return $self->HeaderError("Minimum header size is " .
74					GZIP_MIN_HEADER_SIZE . " bytes")
75					if length $magic != GZIP_ID_SIZE ;
76
77	80	395µs	80	1.20ms	return $self->HeaderError("Bad Magic") # spent 1.20ms making 80 calls to IO::Uncompress::Gunzip::isGzipMagic, avg 15µs/call
78					if ! isGzipMagic($magic) ;
79
80	80	150µs			*$self->{Type} = 'rfc1952';
81
82	80	446µs			return $magic ;
83					}
84
85					sub readHeader
86					# spent 477ms (778µs+476) within IO::Uncompress::Gunzip::readHeader which was called 80 times, avg 5.97ms/call: # 40 times (452µs+474ms) by IO::Uncompress::RawInflate::mkUncomp at line 90 of IO/Uncompress/RawInflate.pm, avg 11.9ms/call # 40 times (326µs+2.50ms) by IO::Uncompress::Base::gotoNextStream at line 1056 of IO/Uncompress/Base.pm, avg 71µs/call {
87	80	85µs			my $self = shift;
88	80	82µs			my $magic = shift;
89
90	80	922µs	80	476ms	return $self->_readGzipHeader($magic); # spent 476ms making 80 calls to IO::Uncompress::Gunzip::_readGzipHeader, avg 5.96ms/call
91					}
92
93					sub chkTrailer
94					# spent 663µs (588+75) within IO::Uncompress::Gunzip::chkTrailer which was called 41 times, avg 16µs/call: # 41 times (588µs+75µs) by IO::Uncompress::Base::_raw_read at line 954 of IO/Uncompress/Base.pm, avg 16µs/call {
95	41	40µs			my $self = shift;
96	41	44µs			my $trailer = shift;
97
98					# Check CRC & ISIZE
99	41	260µs	41	75µs	my ($CRC32, $ISIZE) = unpack("V V", $trailer) ; # spent 75µs making 41 calls to IO::Uncompress::Gunzip::CORE:unpack, avg 2µs/call
100	41	70µs			*$self->{Info}{CRC32} = $CRC32;
101	41	63µs			*$self->{Info}{ISIZE} = $ISIZE;
102
103	41	49µs			if (*$self->{Strict}) {
104					return $self->TrailerError("CRC mismatch")
105					if $CRC32 != *$self->{Uncomp}->crc32() ;
106
107					my $exp_isize = *$self->{UnCompSize}->get32bit();
108					return $self->TrailerError("ISIZE mismatch. Got $ISIZE"
109					. ", expected $exp_isize")
110					if $ISIZE != $exp_isize ;
111					}
112
113	41	176µs			return STATUS_OK;
114					}
115
116					sub isGzipMagic
117					# spent 1.20ms (967µs+237µs) within IO::Uncompress::Gunzip::isGzipMagic which was called 80 times, avg 15µs/call: # 80 times (967µs+237µs) by IO::Uncompress::Gunzip::ckMagic at line 77, avg 15µs/call {
118	80	86µs			my $buffer = shift ;
119	80	84µs			return 0 if length $buffer < GZIP_ID_SIZE ;
120	80	657µs	80	237µs	my ($id1, $id2) = unpack("C C", $buffer) ; # spent 237µs making 80 calls to IO::Uncompress::Gunzip::CORE:unpack, avg 3µs/call
121	80	465µs			return $id1 == GZIP_ID1 && $id2 == GZIP_ID2 ;
122					}
123
124					sub _readFullGzipHeader($)
125					{
126					my ($self) = @_ ;
127					my $magic = '' ;
128
129					$self->smartReadExact(\$magic, GZIP_ID_SIZE);
130
131					*$self->{HeaderPending} = $magic ;
132
133					return $self->HeaderError("Minimum header size is " .
134					GZIP_MIN_HEADER_SIZE . " bytes")
135					if length $magic != GZIP_ID_SIZE ;
136
137
138					return $self->HeaderError("Bad Magic")
139					if ! isGzipMagic($magic) ;
140
141					my $status = $self->_readGzipHeader($magic);
142					delete *$self->{Transparent} if ! defined $status ;
143					return $status ;
144					}
145
146					sub _readGzipHeader($)
147					# spent 476ms (118+358) within IO::Uncompress::Gunzip::_readGzipHeader which was called 80 times, avg 5.96ms/call: # 80 times (118ms+358ms) by IO::Uncompress::Gunzip::readHeader at line 90, avg 5.96ms/call {
148	80	98µs			my ($self, $magic) = @_ ;
149	80	65µs			my ($HeaderCRC) ;
150	80	105µs			my ($buffer) = '' ;
151
152	80	361µs	80	3.49ms	$self->smartReadExact(\$buffer, GZIP_MIN_HEADER_SIZE - GZIP_ID_SIZE) # spent 3.49ms making 80 calls to IO::Uncompress::Base::smartReadExact, avg 44µs/call
153					or return $self->HeaderError("Minimum header size is " .
154					GZIP_MIN_HEADER_SIZE . " bytes") ;
155
156	80	146µs			my $keep = $magic . $buffer ;
157	80	130µs			*$self->{HeaderPending} = $keep ;
158
159					# now split out the various parts
160	80	499µs	80	155µs	my ($cm, $flag, $mtime, $xfl, $os) = unpack("C C V C C", $buffer) ; # spent 155µs making 80 calls to IO::Uncompress::Gunzip::CORE:unpack, avg 2µs/call
161
162	80	78µs			$cm == GZIP_CM_DEFLATED
163					or return $self->HeaderError("Not Deflate (CM is $cm)") ;
164
165					# check for use of reserved bits
166	80	94µs			return $self->HeaderError("Use of Reserved Bits in FLG field.")
167					if $flag & GZIP_FLG_RESERVED ;
168
169	80	71µs			my $EXTRA ;
170	80	177µs			my @EXTRA = () ;
171	80	77µs			if ($flag & GZIP_FLG_FEXTRA) {
172					$EXTRA = "" ;
173					$self->smartReadExact(\$buffer, GZIP_FEXTRA_HEADER_SIZE)
174					or return $self->TruncatedHeader("FEXTRA Length") ;
175
176					my ($XLEN) = unpack("v", $buffer) ;
177					$self->smartReadExact(\$EXTRA, $XLEN)
178					or return $self->TruncatedHeader("FEXTRA Body");
179					$keep .= $buffer . $EXTRA ;
180
181					if ($XLEN && *$self->{'ParseExtra'}) {
182					my $bad = IO::Compress::Zlib::Extra::parseRawExtra($EXTRA,
183					\@EXTRA, 1, 1);
184					return $self->HeaderError($bad)
185					if defined $bad;
186					}
187					}
188
189	80	77µs			my $origname ;
190	80	73µs			if ($flag & GZIP_FLG_FNAME) {
191					$origname = "" ;
192					while (1) {
193					$self->smartReadExact(\$buffer, 1)
194					or return $self->TruncatedHeader("FNAME");
195					last if $buffer eq GZIP_NULL_BYTE ;
196					$origname .= $buffer
197					}
198					$keep .= $origname . GZIP_NULL_BYTE ;
199
200					return $self->HeaderError("Non ISO 8859-1 Character found in Name")
201					if *$self->{Strict} && $origname =~ /$GZIP_FNAME_INVALID_CHAR_RE/o ;
202					}
203
204	80	65µs			my $comment ;
205	80	111µs			if ($flag & GZIP_FLG_FCOMMENT) {
206	40	47µs			$comment = "";
207	40	40µs			while (1) {
208	4000	12.9ms	4000	355ms	$self->smartReadExact(\$buffer, 1) # spent 355ms making 4000 calls to IO::Uncompress::Base::smartReadExact, avg 89µs/call
209					or return $self->TruncatedHeader("FCOMMENT");
210	4000	3.00ms			last if $buffer eq GZIP_NULL_BYTE ;
211	3960	6.05ms			$comment .= $buffer
212					}
213	40	363µs			$keep .= $comment . GZIP_NULL_BYTE ;
214
215					return $self->HeaderError("Non ISO 8859-1 Character found in Comment")
216	40	52µs			if *$self->{Strict} && $comment =~ /$GZIP_FCOMMENT_INVALID_CHAR_RE/o ;
217					}
218
219	80	79µs			if ($flag & GZIP_FLG_FHCRC) {
220					$self->smartReadExact(\$buffer, GZIP_FHCRC_SIZE)
221					or return $self->TruncatedHeader("FHCRC");
222
223					$HeaderCRC = unpack("v", $buffer) ;
224					my $crc16 = Compress::Raw::Zlib::crc32($keep) & 0xFF ;
225
226					return $self->HeaderError("CRC16 mismatch.")
227					if *$self->{Strict} && $crc16 != $HeaderCRC;
228
229					$keep .= $buffer ;
230					}
231
232					# Assume compression method is deflated for xfl tests
233					#if ($xfl) {
234					#}
235
236	80	112µs			*$self->{Type} = 'rfc1952';
237
238					return {
239					'Type' => 'rfc1952',
240					'FingerprintLength' => 2,
241					'HeaderLength' => length $keep,
242					'TrailerLength' => GZIP_TRAILER_SIZE,
243					'Header' => $keep,
244					'isMinimalHeader' => $keep eq GZIP_MINIMUM_HEADER ? 1 : 0,
245
246					'MethodID' => $cm,
247					'MethodName' => $cm == GZIP_CM_DEFLATED ? "Deflated" : "Unknown" ,
248					'TextFlag' => $flag & GZIP_FLG_FTEXT ? 1 : 0,
249					'HeaderCRCFlag' => $flag & GZIP_FLG_FHCRC ? 1 : 0,
250					'NameFlag' => $flag & GZIP_FLG_FNAME ? 1 : 0,
251					'CommentFlag' => $flag & GZIP_FLG_FCOMMENT ? 1 : 0,
252					'ExtraFlag' => $flag & GZIP_FLG_FEXTRA ? 1 : 0,
253					'Name' => $origname,
254					'Comment' => $comment,
255					'Time' => $mtime,
256					'OsID' => $os,
257					'OsName' => defined $GZIP_OS_Names{$os}
258	80	3.91ms			? $GZIP_OS_Names{$os} : "Unknown",
259					'HeaderCRC' => $HeaderCRC,
260					'Flags' => $flag,
261					'ExtraFlags' => $xfl,
262					'ExtraFieldRaw' => $EXTRA,
263					'ExtraField' => [ @EXTRA ],
264
265
266					#'CompSize'=> $compsize,
267					#'CRC32'=> $CRC32,
268					#'OrigSize'=> $ISIZE,
269					}
270					}
271
272
273	1	8µs			1;
274
275					__END__

					# spent 467µs within IO::Uncompress::Gunzip::CORE:unpack which was called 201 times, avg 2µs/call: # 80 times (237µs+0s) by IO::Uncompress::Gunzip::isGzipMagic at line 120, avg 3µs/call # 80 times (155µs+0s) by IO::Uncompress::Gunzip::_readGzipHeader at line 160, avg 2µs/call # 41 times (75µs+0s) by IO::Uncompress::Gunzip::chkTrailer at line 99, avg 2µs/call sub IO::Uncompress::Gunzip::CORE:unpack; # opcode