#!/usr/local/bin/perl
# 
# Copyright (C) 1993-1997 Ken'ichi Fukamachi
#          All rights reserved. 
#               1993-1996 fukachan@phys.titech.ac.jp
#               1996-1997 fukachan@sapporo.iij.ad.jp
# 
# FML is free software; you can redistribute it and/or modify
# it under the terms of GNU General Public License.
# See the file COPYING for more details.
#
# $Id: fix_syscall.pl,v 1.0 1999/02/11 18:41:27 fukachan Exp $

while (<>) {
    s/^(\$ENV{'PATH'}\s*=.*)/## not set on NT, $_/;
    s/rename\(/&Rename(/g;
    s/crypt\(/&NT4Crypt(/g;
    print;
}

exit 0;
