[ViewVC] Diff of: cvs/Convert-UUlib/UUlib.pm

Comparing Convert-UUlib/UUlib.pm (file contents):
Revision 1.13 by root, Tue Oct 15 23:20:29 2002 UTC vs.
Revision 1.52 by root, Mon Mar 16 23:54:29 2020 UTC

…		…
1	package Convert::UUlib;	1	package Convert::UUlib;
		2
		3	use common::sense;
2		4
3	use Carp;	5	use Carp;
4		6
5	require Exporter;	7	require Exporter;
6	require DynaLoader;	8	require DynaLoader;
7		9
8	$VERSION = 0.31;	10	our $VERSION = 1.71;
9		11
10	@ISA = qw(Exporter DynaLoader);	12	our @ISA = qw(Exporter DynaLoader);
11		13
12	@_consts = qw(	14	our @_consts = qw(
13	ACT_COPYING ACT_DECODING ACT_ENCODING ACT_IDLE ACT_SCANNING	15	ACT_COPYING ACT_DECODING ACT_ENCODING ACT_IDLE ACT_SCANNING
14		16
15	FILE_DECODED FILE_ERROR FILE_MISPART FILE_NOBEGIN FILE_NODATA	17	FILE_DECODED FILE_ERROR FILE_MISPART FILE_NOBEGIN FILE_NODATA
16	FILE_NOEND FILE_OK FILE_READ FILE_TMPFILE	18	FILE_NOEND FILE_OK FILE_READ FILE_TMPFILE
17		19
18	MSG_ERROR MSG_FATAL MSG_MESSAGE MSG_NOTE MSG_PANIC MSG_WARNING	20	MSG_ERROR MSG_FATAL MSG_MESSAGE MSG_NOTE MSG_PANIC MSG_WARNING
19		21
		22	OPT_RBUF OPT_WBUF
20	OPT_BRACKPOL OPT_DEBUG OPT_DESPERATE OPT_DUMBNESS OPT_ENCEXT	23	OPT_BRACKPOL OPT_DEBUG OPT_DESPERATE OPT_DUMBNESS OPT_ENCEXT
21	OPT_ERRNO OPT_FAST OPT_IGNMODE OPT_IGNREPLY OPT_OVERWRITE OPT_PREAMB	24	OPT_ERRNO OPT_FAST OPT_IGNMODE OPT_IGNREPLY OPT_OVERWRITE OPT_PREAMB
22	OPT_PROGRESS OPT_SAVEPATH OPT_TINYB64 OPT_USETEXT OPT_VERBOSE	25	OPT_PROGRESS OPT_SAVEPATH OPT_TINYB64 OPT_USETEXT OPT_VERBOSE
23	OPT_VERSION OPT_REMOVE OPT_MOREMIME OPT_DOTDOT	26	OPT_VERSION OPT_REMOVE OPT_MOREMIME OPT_DOTDOT OPT_AUTOCHECK
24		27
25	RET_CANCEL RET_CONT RET_EXISTS RET_ILLVAL RET_IOERR RET_NODATA	28	RET_CANCEL RET_CONT RET_EXISTS RET_ILLVAL RET_IOERR RET_NODATA
26	RET_NOEND RET_NOMEM RET_OK RET_UNSUP	29	RET_NOEND RET_NOMEM RET_OK RET_UNSUP
27		30
28	B64_ENCODED BH_ENCODED PT_ENCODED QP_ENCODED	31	B64_ENCODED BH_ENCODED PT_ENCODED QP_ENCODED
29	XX_ENCODED UU_ENCODED YENC_ENCODED	32	XX_ENCODED UU_ENCODED YENC_ENCODED
30	);	33	);
31		34
32	@_funcs = qw(	35	our @_funcs = qw(
33	Initialize CleanUp GetOption SetOption strerror SetMsgCallback	36	Initialize CleanUp GetOption SetOption strerror SetMsgCallback
34	SetBusyCallback SetFileCallback SetFNameFilter SetFileNameCallback	37	SetBusyCallback SetFileCallback SetFNameFilter SetFileNameCallback
35	FNameFilter LoadFile GetFileListItem RenameFile DecodeToTemp	38	FNameFilter LoadFile GetFileListItem GetFileList RenameFile DecodeToTemp
36	RemoveTemp DecodeFile InfoFile Smerge QuickDecode EncodeMulti	39	RemoveTemp DecodeFile InfoFile Smerge QuickDecode EncodeMulti
37	EncodePartial EncodeToStream EncodeToFile E_PrepSingle	40	EncodePartial EncodeToStream EncodeToFile E_PrepSingle
38	E_PrepPartial	41	E_PrepPartial
39		42
40	straction strencoding strmsglevel	43	straction strencoding strmsglevel
41	);	44	);
42		45
43	@EXPORT = @_consts;	46	our @EXPORT = @_consts;
44	@EXPORT_OK = @_funcs;	47	our @EXPORT_OK = @_funcs;
45	%EXPORT_TAGS = (all => [@_consts,@_funcs], constants => \@_consts);	48	our %EXPORT_TAGS = (all => [@_consts,@_funcs], constants => \@_consts);
46		49
47	bootstrap Convert::UUlib $VERSION;	50	bootstrap Convert::UUlib $VERSION;
48		51
49	Initialize();	52	# dummy function for compatiiblity with pre-1.7 versions
50		53	sub Initialize { }
51	# not when < 5.005_6x
52	# END { CleanUp() }
53
54	for (@_consts) {
55	my $constant = constant($_);
56	*$_ = sub () { $constant };
57	}
58		54
59	# action code -> string mapping	55	# action code -> string mapping
60	sub straction($) {	56	sub straction($) {
61	return 'copying' if $_[0] == &ACT_COPYING;	57	return 'copying' if $_[0] == &ACT_COPYING;
62	return 'decoding' if $_[0] == &ACT_DECODING;	58	return 'decoding' if $_[0] == &ACT_DECODING;
100	use Convert::UUlib ':all';	96	use Convert::UUlib ':all';
101		97
102	# read all the files named on the commandline and decode them	98	# read all the files named on the commandline and decode them
103	# into the CURRENT directory. See below for a longer example.	99	# into the CURRENT directory. See below for a longer example.
104	LoadFile $_ for @ARGV;	100	LoadFile $_ for @ARGV;
105	for (my $i = 0; my $uu = GetFileListItem $i; $i++) {	101
		102	for my $uu (GetFileList) {
106	if ($uu->state & FILE_OK) {	103	if ($uu->state & FILE_OK) {
107	$uu->decode;	104	$uu->decode;
108	print $uu->filename, "\n";	105	print $uu->filename, "\n";
109	}	106	}
110	}	107	}
…		…
151	OPT_PROGRESS retrieve progress information	148	OPT_PROGRESS retrieve progress information
152	OPT_USETEXT handle text messages	149	OPT_USETEXT handle text messages
153	OPT_PREAMB handle Mime preambles/epilogues	150	OPT_PREAMB handle Mime preambles/epilogues
154	OPT_TINYB64 detect short B64 outside of Mime	151	OPT_TINYB64 detect short B64 outside of Mime
155	OPT_ENCEXT extension for single-part encoded files	152	OPT_ENCEXT extension for single-part encoded files
156	OPT_REMOVE remove input files after decoding	153	OPT_REMOVE remove input files after decoding (dangerous)
157	OPT_MOREMIME strict MIME adherence	154	OPT_MOREMIME strict MIME adherence
158	OPT_DOTDOT .. unescaping has not yet been done on input files	155	OPT_DOTDOT ".."-unescaping has not yet been done on input files
		156	OPT_RBUF set default read I/O buffer size in bytes
		157	OPT_WBUF set default write I/O buffer size in bytes
		158	OPT_AUTOCHECK automatically check file list after every loadfile
159		159
160	=head2 Result/Error codes	160	=head2 Result/Error codes
161		161
162	RET_OK everything went fine	162	RET_OK everything went fine
163	RET_IOERR I/O Error - examine errno	163	RET_IOERR I/O Error - examine errno
…		…
203		203
204	Initialize is automatically called when the module is loaded and allocates	204	Initialize is automatically called when the module is loaded and allocates
205	quite a small amount of memory for todays machines ;) CleanUp releases that	205	quite a small amount of memory for todays machines ;) CleanUp releases that
206	again.	206	again.
207		207
		208	On my machine, a fairly complete decode with DBI backend needs about 10MB
		209	RSS to decode 20000 files.
		210
208	=over 4	211	=over
209
210	=item Initialize
211
212	Not normally necessary, (re-)initializes the library.
213		212
214	=item CleanUp	213	=item CleanUp
215		214
216	Not normally necessary, could be called at the end to release memory	215	Release memory, file items and clean up files. Should be called after a
217	before starting a new decoding round.	216	decoidng run, if you want to start a new one.
218		217
219	=back	218	=back
220		219
221	=head2 Setting and querying options	220	=head2 Setting and querying options
222		221
223	=over 4	222	=over
224		223
225	=item $option = GetOption OPT_xxx	224	=item $option = GetOption OPT_xxx
226		225
227	=item SetOption OPT_xxx, opt-value	226	=item SetOption OPT_xxx, opt-value
228		227
…		…
230		229
231	See the C<OPT_xxx> constants above to see which options exist.	230	See the C<OPT_xxx> constants above to see which options exist.
232		231
233	=head2 Setting various callbacks	232	=head2 Setting various callbacks
234		233
235	=over 4	234	=over
236		235
237	=item SetMsgCallback [callback-function]	236	=item SetMsgCallback [callback-function]
238		237
239	=item SetBusyCallback [callback-function]	238	=item SetBusyCallback [callback-function]
240		239
…		…
244		243
245	=back	244	=back
246		245
247	=head2 Call the currently selected FNameFilter	246	=head2 Call the currently selected FNameFilter
248		247
249	=over 4	248	=over
250		249
251	=item $file = FNameFilter $file	250	=item $file = FNameFilter $file
252		251
253	=back	252	=back
254		253
255	=head2 Loading sourcefiles, optionally fuzzy merge and start decoding	254	=head2 Loading sourcefiles, optionally fuzzy merge and start decoding
256		255
257	=over 4	256	=over
258		257
259	=item ($retval, $count) = LoadFile $fname, [$id, [$delflag]]	258	=item ($retval, $count) = LoadFile $fname, [$id, [$delflag, [$partno]]]
260		259
261	Load the given file and scan it for encoded contents. Optionally tag it	260	Load the given file and scan it for encoded contents. Optionally tag it
262	with the given id, and if C<$delflag> is true, delete the file after it is	261	with the given id, and if C<$delflag> is true, delete the file after it
263	no longer necessary.	262	is no longer necessary. If you are certain of the part number, you can
		263	specify it as the last argument.
		264
		265	A better (usually faster) way of doing this is using the C<SetFNameFilter>
		266	functionality.
264		267
265	=item $retval = Smerge $pass	268	=item $retval = Smerge $pass
266		269
267	If you are desperate, try to call C<Smerge> with increasing C<$pass>	270	If you are desperate, try to call C<Smerge> with increasing C<$pass>
268	values, beginning at C<0>, to try to merge parts that usually would not	271	values, beginning at C<0>, to try to merge parts that usually would not
269	have been merged.	272	have been merged.
270		273
271	Most probably this will result in garbled files, so never do this by	274	Most probably this will result in garbled files, so never do this by
272	default.	275	default, except:
		276
		277	If the C<OPT_AUTOCHECK> option has been disabled (by default it is
		278	enabled) to speed up file loading, then you I<have> to call C<Smerge -1>
		279	after loading all files as an additional pre-pass (which is normally done
		280	by C<LoadFile>).
273		281
274	=item $item = GetFileListItem $item_number	282	=item $item = GetFileListItem $item_number
275		283
276	Return the C<$item> structure for the C<$item_number>'th found file, or	284	Return the C<$item> structure for the C<$item_number>'th found file, or
277	C<undef> of no file with that number exists.	285	C<undef> of no file with that number exists.
278		286
279	The first file has number C<0>, and the series has no holes, so you can	287	The first file has number C<0>, and the series has no holes, so you can
280	iterate over all files by starting with zero and incrementing until you	288	iterate over all files by starting with zero and incrementing until you
281	hit C<undef>.	289	hit C<undef>.
282		290
		291	This function has to walk the linear list of fils on each access, so
		292	if you want to iterate over all items, it is usually faster to use
		293	C<GetFileList>.
		294
		295	=item @items = GetFileList
		296
		297	Similar to C<GetFileListItem>, but returns all files in one go.
		298
283	=back	299	=back
284		300
285	=head2 Decoding files	301	=head2 Decoding files
286		302
287	=over 4	303	=over
288		304
289	=item $retval = $item->rename($newname)	305	=item $retval = $item->rename ($newname)
290		306
291	Change the ondisk filename where the decoded file will be saved.	307	Change the ondisk filename where the decoded file will be saved.
292		308
293	=item $retval = $item->decode_temp	309	=item $retval = $item->decode_temp
294		310
…		…
297		313
298	=item $retval = $item->remove_temp	314	=item $retval = $item->remove_temp
299		315
300	Remove the temporarily decoded file again.	316	Remove the temporarily decoded file again.
301		317
302	=item $retval = $item->decode([$target_path])	318	=item $retval = $item->decode ([$target_path])
303		319
304	Decode the file to it's destination, or the given target path.	320	Decode the file to its destination, or the given target path.
305		321
306	=item $retval = $item->info(callback-function)	322	=item $retval = $item->info (callback-function)
307		323
308	=back	324	=back
309		325
310	=head2 Querying (and setting) item attributes	326	=head2 Querying (and setting) item attributes
311		327
312	=over 4	328	=over
313		329
314	=item $state = $item->state	330	=item $state = $item->state
315		331
316	=item $mode = $item->mode([newmode])	332	=item $mode = $item->mode ([newmode])
317		333
318	=item $uudet = $item->uudet	334	=item $uudet = $item->uudet
319		335
320	=item $size = $item->size	336	=item $size = $item->size
321		337
322	=item $filename = $item->filename([newfilename})	338	=item $filename = $item->filename ([newfilename})
323		339
324	=item $subfname = $item->subfname	340	=item $subfname = $item->subfname
325		341
326	=item $mimeid = $item->mimeid	342	=item $mimeid = $item->mimeid
327		343
…		…
331		347
332	=back	348	=back
333		349
334	=head2 Information about source parts	350	=head2 Information about source parts
335		351
336	=over 4	352	=over
337		353
338	=item $parts = $item->parts	354	=item $parts = $item->parts
339		355
340	Return information about all parts (source files) used to decode the file	356	Return information about all parts (source files) used to decode the file
341	as a list of hashrefs with the following structure:	357	as a list of hashrefs with the following structure:
…		…
355	Usually you are interested mostly the C<sfname> and possibly the C<partno>	371	Usually you are interested mostly the C<sfname> and possibly the C<partno>
356	and C<filename> members.	372	and C<filename> members.
357		373
358	=back	374	=back
359		375
360	=head2 Functions below not documented and not very well tested	376	=head2 Functions below are not documented and not very well tested - feedback welcome
361		377
362	QuickDecode	378	QuickDecode
363	EncodeMulti	379	EncodeMulti
364	EncodePartial	380	EncodePartial
365	EncodeToStream	381	EncodeToStream
…		…
369		385
370	=head2 EXTENSION FUNCTIONS	386	=head2 EXTENSION FUNCTIONS
371		387
372	Functions found in this module but not documented in the uulib documentation:	388	Functions found in this module but not documented in the uulib documentation:
373		389
374	=over 4	390	=over
375		391
376	=item $msg = straction ACT_xxx	392	=item $msg = straction ACT_xxx
377		393
378	Return a human readable string representing the given action code.	394	Return a human readable string representing the given action code.
379		395
…		…
420		436
421	=back	437	=back
422		438
423	=head1 LARGE EXAMPLE DECODER	439	=head1 LARGE EXAMPLE DECODER
424		440
		441	The general workflow for decoding is like this:
		442
		443	=over
		444
		445	=item 1. Configure options with C<SetOption> or C<SetXXXCallback>.
		446
		447	=item 2. Load all source files with C<LoadFile>.
		448
		449	=item 3. Optionally C<Smerge>.
		450
		451	=item 4. Iterate over all C<GetFileList> items (i.e. result files).
		452
		453	=item 5. C<CleanUp> to delete files and free items.
		454
		455	=back
		456
425	This is the file C<example-decoder> from the distribution, put here	457	What follows is the file C<example-decoder> from the distribution that
426	instead of more thorough documentation.	458	illustrates the above worklfow in a non-trivial example.
427		459
		460	#!/usr/bin/perl
		461
428	# decode all the files in the directory uusrc/ and copy	462	# decode all the files in the directory uusrc/ and copy
429	# the resulting files to uudst/	463	# the resulting files to uudst/
430		464
431	use Convert::UUlib ':all';	465	use Convert::UUlib ':all';
432		466
433	sub namefilter {	467	sub namefilter {
434	my($path)=@_;	468	my ($path) = @_;
		469
435	$path=~s/^.*[\/\\]//;	470	$path=~s/^.*[\/\\]//;
		471
436	$path;	472	$path
437	}	473	}
438		474
439	sub busycb {	475	sub busycb {
440	my ($action, $curfile, $partno, $numparts, $percent, $fsize) = @_;	476	my ($action, $curfile, $partno, $numparts, $percent, $fsize) = @_;
441	$_[0]=straction($action);	477	$_[0]=straction($action);
442	print "busy_callback(", (join ",",@_), ")\n";	478	print "busy_callback(", (join ",",@_), ")\n";
443	0;	479	0
444	}	480	}
445		481
		482	SetOption OPT_RBUF, 128*1024;
		483	SetOption OPT_WBUF, 1024*1024;
446	SetOption OPT_IGNMODE, 1;	484	SetOption OPT_IGNMODE, 1;
		485	SetOption OPT_IGNMODE, 1;
447	SetOption OPT_VERBOSE, 1;	486	SetOption OPT_VERBOSE, 1;
448		487
449	# show the three ways you can set callback functions. I normally	488	# show the three ways you can set callback functions. I normally
450	# prefer the one with the sub inplace.	489	# prefer the one with the sub inplace.
451	SetFNameFilter \&namefilter;	490	SetFNameFilter \&namefilter;
452		491
453	SetBusyCallback "busycb", 333;	492	SetBusyCallback "busycb", 333;
454		493
455	SetMsgCallback sub {	494	SetMsgCallback sub {
456	my ($msg, $level) = @_;	495	my ($msg, $level) = @_;
457	print uc strmsglevel $_[1], ": $msg\n";	496	print uc strmsglevel $_[1], ": $msg\n";
458	};	497	};
459		498
460	# the following non-trivial FileNameCallback takes care	499	# the following non-trivial FileNameCallback takes care
461	# of some subject lines not detected properly by uulib:	500	# of some subject lines not detected properly by uulib:
462	SetFileNameCallback sub {	501	SetFileNameCallback sub {
463	return unless $_[1]; # skip "Re:"-plies et al.	502	return unless $_[1]; # skip "Re:"-plies et al.
464	local $_ = $_[0];	503	local $_ = $_[0];
465		504
466	# the following rules are rather effective on some newsgroups,	505	# the following rules are rather effective on some newsgroups,
467	# like alt.binaries.games.anime, where non-mime, uuencoded data	506	# like alt.binaries.games.anime, where non-mime, uuencoded data
468	# is very common	507	# is very common
469		508
470	# if we find some *.rar, take it as the filename	509	# if we find some *.rar, take it as the filename
471	return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d\|rar))\s/i;	510	return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d\|rar))\s/i;
472		511
473	# one common subject format	512	# one common subject format
474	return $1 if /- "(.{2,}?\..+?)" (?:yenc )?$\d+\/\d+$/i;	513	return $1 if /- "(.{2,}?\..+?)" (?:yenc )?$\d+\/\d+$/i;
475		514
476	# - filename.par (04/55)	515	# - filename.par (04/55)
477	return $1 if /- "?(\S{3,}\.\S+?)"? (?:yenc )?$\d+\/\d+$/i;	516	return $1 if /- "?(\S{3,}\.\S+?)"? (?:yenc )?$\d+\/\d+$/i;
478		517
479	# - (xxx) No. 1 sayuri81.jpg 756565 bytes	518	# - (xxx) No. 1 sayuri81.jpg 756565 bytes
480	# - (20 files) No.17 Roseanne.jpg [2/2]	519	# - (20 files) No.17 Roseanne.jpg [2/2]
481	return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/;	520	return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/;
482		521
		522	# try to detect some common forms of filenames
		523	return $1 if /([a-z0-9_\-+.]{3,}\.[a-z]{3,4}(?:.\d+))/i;
		524
483	# otherwise just pass what we have	525	# otherwise just pass what we have
484	return ();	526	()
485	};	527	};
486		528
487	# now read all files in the directory uusrc/*	529	# now read all files in the directory uusrc/*
488	for(<uusrc/*>) {	530	for (<uusrc/*>) {
489	my($retval,$count)=LoadFile ($_, $_, 1);	531	my ($retval, $count) = LoadFile ($_, $_, 1);
490	print "file($_), status(", strerror $retval, ") parts($count)\n";	532	print "file($_), status(", strerror $retval, ") parts($count)\n";
491	}	533	}
492		534
493	SetOption OPT_SAVEPATH, "uudst/";	535	SetOption OPT_SAVEPATH, "uudst/";
494		536
495	# now wade through all files and their source parts	537	# now wade through all files and their source parts
496	$i = 0;	538	for my $uu (GetFileList) {
497	while ($uu = GetFileListItem($i)) {	539	print "file ", $uu->filename, "\n";
498	$i++;
499	print "file nr. $i";
500	print " state ", $uu->state;	540	print " state ", $uu->state, "\n";
501	print " mode ", $uu->mode;	541	print " mode ", $uu->mode, "\n";
502	print " uudet ", strencoding $uu->uudet;	542	print " uudet ", strencoding $uu->uudet, "\n";
503	print " size ", $uu->size;	543	print " size ", $uu->size, "\n";
504	print " filename ", $uu->filename;
505	print " subfname ", $uu->subfname;	544	print " subfname ", $uu->subfname, "\n";
506	print " mimeid ", $uu->mimeid;	545	print " mimeid ", $uu->mimeid, "\n";
507	print " mimetype ", $uu->mimetype;	546	print " mimetype ", $uu->mimetype, "\n";
508	print "\n";
509		547
510	# print additional info about all parts	548	# print additional info about all parts
		549	print " parts";
511	for ($uu->parts) {	550	for ($uu->parts) {
512	while (my ($k, $v) = each %$_) {	551	for my $k (sort keys %$_) {
513	print "$k > $v, ";	552	print " $k=$_->{$k}";
514	}	553	}
515	print "\n";	554	print "\n";
516	}	555	}
517		556
518	$uu->decode_temp;
519	print " temporarily decoded to ", $uu->binfile, "\n";
520	$uu->remove_temp;	557	$uu->remove_temp;
521		558
522	print strerror $uu->decode;	559	if (my $err = $uu->decode) {
		560	print " ERROR ", strerror $err, "\n";
		561	} else {
523	print " saved as uudst/", $uu->filename, "\n";	562	print " successfully saved as uudst/", $uu->filename, "\n";
524	}	563	}
		564	}
525		565
526	print "cleanup...\n";	566	print "cleanup...\n";
527		567
528	CleanUp();	568	CleanUp;
		569
		570	=head1 PERLMULTICORE SUPPORT
		571
		572	This module supports the perlmulticore standard (see
		573	L<http://perlmulticore.schmorp.de/> for more info) for the following
		574	functions - generally these are functions accessing the disk and/or using
		575	considerable CPU time:
		576
		577	LoadFile
		578	$item->decode
		579	$item->decode_temp
		580	$item->remove_temp
		581	$item->info
		582
		583	The perl interpreter will be reacquired/released on every callback
		584	invocation, so for performance reasons, callbacks should be avoided if
		585	that is costly.
		586
		587	Future versions might enable multicore support for more functions.
		588
		589	=head1 BUGS AND LIMITATIONS
		590
		591	The original uulib library this module uses was written at a time where
		592	main memory of measured in megabytes and buffer overflows as a security
		593	thign didn't exist. While a lot of security fixes have been applied over
		594	the years (includign some defense in depth mechanism that can shield
		595	against a lot of as-of-yet undetected bugs), using this library for
		596	security purposes requires care.
		597
		598	Likewise, file sizes when the uulib library was written were tiny compared
		599	to today, so do not expect this library to handle files larger than 2GB.
		600
		601	Lastly, this module uses a very "C-like" interface, which means it doesn't
		602	protect you from invalid points as you might expect from "more perlish"
		603	modules - for example, accessing a file item object after callinbg
		604	C<CleanUp> will likely result in crashes, memory corruption, or worse.
529		605
530	=head1 AUTHOR	606	=head1 AUTHOR
531		607
532	Marc Lehmann <pcg@goof.com>, the original uulib library was written	608	Marc Lehmann <schmorp@schmorp.de>, the original uulib library was written
533	by Frank Pilhofer <fp@informatik.uni-frankfurt.de>, and later heavily	609	by Frank Pilhofer <fp@informatik.uni-frankfurt.de>, and later heavily
534	bugfixed by Marc Lehmann.	610	bugfixed by Marc Lehmann.
535		611
536	=head1 SEE ALSO	612	=head1 SEE ALSO
537		613
538	perl(1), uudeview homepage at http://www.uni-frankfurt.de/~fp/uudeview/.	614	perl(1), uudeview homepage at L<http://www.fpx.de/fp/Software/UUDeview/>.
539		615
540	=cut	616	=cut
		617

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing Convert-UUlib/UUlib.pm (file contents): Revision 1.13 by root, Tue Oct 15 23:20:29 2002 UTC vs. Revision 1.52 by root, Mon Mar 16 23:54:29 2020 UTC

Diff Legend

Comparing Convert-UUlib/UUlib.pm (file contents):
Revision 1.13 by root, Tue Oct 15 23:20:29 2002 UTC vs.
Revision 1.52 by root, Mon Mar 16 23:54:29 2020 UTC