source: main/trunk/greenstone2/perllib/XMLParser.pm@ 24700

###########################################################################
#
# XMLParser.pm -- Wrapper that ensures the right version of XML::Parser
#                 is loaded given the version of Perl being used.  Need
#                 to distinguish between Perl 5.6 and Perl 5.8
#
# A component of the Greenstone digital library software
# from the New Zealand Digital Library Project at the 
# University of Waikato, New Zealand.
#
# Copyright (C) 2005-2010 New Zealand Digital Library Project
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
###########################################################################


sub BEGIN {
    my $perl_dir;

    # Note: $] encodes the version number of perl
    if ($]>=5.010) { 
    $perl_dir = "perl-5.10";
    }
    elsif ($]>5.008) { 
    # perl 5.8.1 or above
    $perl_dir = "perl-5.8";
    }
    elsif ($]>=5.008) { 
    # perl 5.8.1 or above
    $perl_dir = "perl-5.8";
    }
    elsif ($]<5.008) {
    # assume perl 5.6
    $perl_dir = "perl-5.6";
    }
    else {
    print STDERR "Warning: Perl 5.8.0 is not a maintained release.\n";
    print STDERR "         Please upgrade to a newer version of Perl.\n";
    $perl_dir = "perl-5.8";
    }

    if ($ENV{'GSDLOS'} !~ /^windows$/i) {
        # Use push to put this on the end, so an existing XML::Parser will be used by default
        if (-d "$ENV{'GSDLHOME'}/perllib/cpan/$perl_dir-mt" && $Config{usethreads}){
            push (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/$perl_dir-mt");
        }
        else{
            push (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/$perl_dir");
        }
    }
}

use Config;
use XML::Parser;
use strict;

1;