Changeset 3903 for lang/perl/Senna/trunk

Show
Ignore:
Timestamp:
12/31/07 23:51:52 (5 years ago)
Author:
daisuke
Message:

make sure to export RC constants

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Senna/trunk/lib/Senna/Constants.pm

    r3767 r3903  
    1010 
    1111our @EXPORT_OK = ( 
    12     map { "SEN_ENC_$_" } qw(DEFAULT NONE EUCJP UTF8 SJIS) 
     12    (map { "SEN_ENC_$_" } qw(DEFAULT NONE EUCJP UTF8 SJIS)), 
     13    (map { "SEN_RC_$_"  } qw(SUCCESS MEMORY_EXHAUSTED INVALID_FORMAT FILE_OPERATION_ERR INVALID_ARGUMENT OTHER)) 
    1314); 
    1415 
    … …  
    3738=head2 SEN_ENC_UTF8 
    3839 
    39 =head2 SEN_RC_FILE_OPERATION_ERR 
     40=head2 SEN_RC_SUCCESS 
    4041 
    41 =head2 SEN_RC_INVALID_ARG 
     42=head2 SEN_RC_MEMORY_EXHAUSTED 
    4243 
    4344=head2 SEN_RC_INVALID_FORMAT 
    4445 
    45 =head2 SEN_RC_MEMORY_EXHAUSTED 
     46=head2 SEN_RC_FILE_OPERATION_ERR 
     47 
     48=head2 SEN_RC_INVALID_ARGUMENT 
    4649 
    4750=head2 SEN_RC_OTHER 
    4851 
    49 =head2 SEN_RC_SUCCESS 
    50  
    5152=cut