head     1.1;
branch   1.1.1;
access   ;
symbols  ePerl_2_2_14:1.1.1.1 RSE:1.1.1;
locks    ; strict;
comment  @# @;


1.1
date     99.05.02.14.43.39;  author rse;  state Exp;
branches 1.1.1.1;
next     ;

1.1.1.1
date     99.05.02.14.43.39;  author rse;  state Exp;
branches ;
next     ;


desc
@@



1.1
log
@Initial revision
@
text
@:
eval 'exec perl -S $0 ${1+"$@@"}'
    if $running_under_some_shell;
##
##  add BASH bootstrap hack to a configure script
##  Copyright (c) Ralf S. Engelschall, All Rights Reserved.
##

open(FPI, "<$ARGV[0]");
open(FPO, ">$ARGV[0].n");
while (<FPI>) {
    if (m|#! /bin/sh\n|) {
        print FPO "#! /bin/sh\n";
        print FPO <<'EOF'
# if we can run at the top, why should we stay at the bottom any longer?
if [ ".$BASH" = . ]; then BASH=`which bash`; if [ ".$BASH" != . ]; then exec $BASH $0 $*; fi; fi
EOF
;
	}
	else {
        print FPO $_;
    }
}
close(FPO);
close(FPI);
unlink("$ARGV[0]");
link("$ARGV[0].n", "$ARGV[0]");
unlink("$ARGV[0].n");

##EOF##
@


1.1.1.1
log
@Import of ePerl 2.2.14
@
text
@@