#!/usr/bin/perl
##-----------------------------------------------------------------------##
##  File:
##	$Id: version-check.pl,v 2.1 2005/07/16 03:43:02 ehood Exp $
##  Description:
##	Simple script used during release process to make sure
##	that release version matches version specified in SGML::DTDParse.
##-----------------------------------------------------------------------##

my $rel_version = shift @ARGV;
my $lib_file	= shift @ARGV;

eval {
  require $lib_file;
};
if ($@) {
  die qq/Error: Failed to require "$lib_file": $@\n/;
}
if ($rel_version ne $SGML::DTDParse::VERSION) {
  die qq/Error: Library version, "$SGML::DTDParse::VERSION", /,
      qq/!= release version, "$rel_version".\n/;
}
exit 0;