← Back to branch summary

~ubuntu-branches/ubuntu/natty/otrs2/natty-updates

« back to all changes in this revision

Viewing changes to Kernel/cpan-lib/MIME/Decoder/UU.pm

  • Committer: Package Import Robot
  • Author(s): Torsten Werner
  • Date: 2007-04-14 17:58:55 UTC
  • mto: (20.1.1 squeeze)
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: package-import@ubuntu.com-20070414175855-9ne0w01yu1q44ch0
Tags: upstream-2.1.7
Import upstream version 2.1.7

Show diffs side-by-side

added added

removed removed

Lines of Context:
Kernel/cpan-lib/MIME/Decoder/UU.pm
36
36
 
37
37
=head1 VERSION
38
38
 
39
 
$Revision: 1.2 $ $Date: 2005/02/15 08:43:51 $
 
39
$Revision: 1.11 $ $Date: 2006/03/17 21:03:23 $
40
40
 
41
41
=cut
42
42
 
49
49
@ISA = qw(MIME::Decoder);
50
50
 
51
51
# The package version, both in 1.23 style *and* usable by MakeMaker:
52
 
$VERSION = "5.417";
 
52
$VERSION = "5.420";
53
53
 
54
54
 
55
55
#------------------------------
60
60
    my ($self, $in, $out) = @_;
61
61
    my ($mode, $file);
62
62
    my @preamble;
63
 
    local $_;
64
63
 
65
64
    ### Init:
66
65
    $self->{MDU_Preamble} = \@preamble;
68
67
    $self->{MDU_File} = undef;
69
68
 
70
69
    ### Find beginning...
 
70
    local $_;
71
71
    while (defined($_ = $in->getline)) {
72
72
        if (/^begin(.*)/) {        ### found it: now decode it...
73
73
            my $modefile = $1;