eval '(exit $?0)' && eval 'exec perl -pi -S $0 ${1+"$@"}'
    & eval 'exec perl -pi -S $0 $argv:q'
    if 0;

# $Id: tao_svcconf.pl 77447 2007-02-28 09:40:44Z johnnyw $
#
# This script can help you convert TAO svc.conf using dynamic services
# to use static services.
#
# You may want to run the "find" command with this script, which maybe
# something like this:
#
# find . -name svc.conf -print | xargs $ACE_ROOT/bin/tao_svcconf.pl

s/^ *dynamic *([A-Za-z_]+) [^\"]+(\"[^\"]+\").*/static $1 $2/;
