Changeset 1806

Show
Ignore:
Timestamp:
06/21/06 15:01:20 (2 years ago)
Author:
karman
Message:

fix problem with using SWISH::API as a CPAN dependency via MakeMaker?

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/swish-e/perl/API.pm

    r1792 r1806  
    33# $Id$ 
    44 
    5 require DynaLoader; 
    6  
    7 use vars qw/  @ISA $VERSION /; 
    8 @ISA = 'DynaLoader'; 
    9  
     5use vars qw/ @ISA $VERSION /; 
    106$VERSION = '0.04'; 
    117 
    12 bootstrap SWISH::API; 
    13 #bootstrap SWISH::API $VERSION; 
     8# prefer XSLoader over DynaLoader 
     9eval { 
     10    require XSLoader; 
     11    XSLoader::load('SWISH::API',$VERSION); 
     12    1; 
     13} or do { 
     14    require DynaLoader; 
     15    push(@ISA,'DynaLoader'); 
     16    bootstrap SWISH::API $VERSION; 
     17}; 
     18 
     19# VERSION sub satisfies some versions of MakeMaker 
     20sub VERSION { $VERSION } 
    1421 
    1522# create perl-ish aliases for all C method names 
    …… 
    5663#dispSymbols( \%SWISH::API:: ); 
    5764 
    58  
    59  
    60 # Preloaded methods go here. 
    6165 
    6266 

  • trunk/swish-e/perl/MANIFEST

    r1555 r1806  
    1313t/third.html 
    1414t/dummy.t 
     15META.yml                                 Module meta-data (added by MakeMaker) 

  • trunk/swish-e/perl/t/test.t

    r1777 r1806  
    66require SWISH::API; 
    77 
    8 my $lastcase = 146; 
     8my $lastcase = 147; 
    99print "1..$lastcase\n"; 
    1010 
    …… 
    1313my $mem_test = 0; 
    1414 
    15  
     15is_ok( SWISH::API->VERSION, $SWISH::API::VERSION ); 
    1616 
    1717######################################################################