<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
##-----------------------------------------------------------------------##
##  File:
##	$Id: version-check.pl,v 1.1 2002/04/04 04:28:59 ehood Exp $
##  Description:
##	Simple script used during release process to make sure
##	that release version matches version specified in MHonArc
##	library,
##-----------------------------------------------------------------------##

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 $mhonarc::VERSION) {
  die qq/Error: Library version, "$mhonarc::VERSION", /,
      qq/!= release version, "$rel_version".\n/;
}
exit 0;
</pre></body></html>