--- Convert-UUlib/UUlib.pm 2002/02/10 22:47:17 1.4 +++ Convert-UUlib/UUlib.pm 2002/03/31 20:19:09 1.5 @@ -6,7 +6,7 @@ require DynaLoader; use AutoLoader; -$VERSION = 0.201; +$VERSION = 0.21; @ISA = qw(Exporter DynaLoader); @@ -27,7 +27,7 @@ RET_NOEND RET_NOMEM RET_OK RET_UNSUP B64ENCODED BH_ENCODED PT_ENCODED QP_ENCODED - XX_ENCODED UU_ENCODED + XX_ENCODED UU_ENCODED YENC_ENCODED ); @_funcs = qw( @@ -64,18 +64,19 @@ return 'encoding' if $_[0] == &ACT_ENCODING; return 'idle' if $_[0] == &ACT_IDLE; return 'scanning' if $_[0] == &ACT_SCANNING; - (); + 'unknown'; } # encoding type -> string mapping sub strencoding($) { + return 'uuencode' if $_[0] == &UU_ENCODED; return 'base64' if $_[0] == &B64ENCODED; + return 'yenc' if $_[0] == &YENC_ENCODED; return 'binhex' if $_[0] == &BH_ENCODED; return 'plaintext' if $_[0] == &PT_ENCODED; return 'quoted-printable' if $_[0] == &QP_ENCODED; return 'xxencode' if $_[0] == &XX_ENCODED; - return 'uuencode' if $_[0] == &UU_ENCODED; - (); + 'unknown'; } sub strmsglevel($) { @@ -85,7 +86,7 @@ return 'error' if $_[0] == &MSG_ERROR; return 'panic' if $_[0] == &MSG_PANIC; return 'fatal' if $_[0] == &MSG_FATAL; - (); + 'unknown'; } 1;