/usr/share/doc/libfilter-perl/examples/closure/UUdecode.pm is in libfilter-perl 1.39-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | package Filter::UUdecode ;
use Filter::Util::Call ;
use strict ;
use warnings ;
my $VERSION = '1.00' ;
sub import
{
my($self) = @_ ;
my ($count) = 0 ;
filter_add(
sub
{
my ($status) ;
while (1) {
return $status
if ($status = filter_read() ) <= 0;
chomp ;
++ $count ;
# Skip the begin line (if it is there)
($_ = ''), next if $count == 1 and /^begin/ ;
# is this the last line?
if ($_ eq " " or length $_ <= 1) {
$_ = '' ;
# If there is an end line, skip it too
return $status
if ($status = filter_read() ) <= 0 ;
$_ = "\n" if /^end/ ;
filter_del() ;
return 1 ;
}
# uudecode the line
$_ = unpack("u", $_) ;
# return the uudecoded data
return $status ;
}
})
}
1 ;
|