#!/usr/bin/perl

# $Header: /SRCS/esmp/usr/src/nw/cmd/gnu/perl-4.036/eg/g/ged,v 1.1.1.1 1993/10/11 20:26:19 ram Exp $

# Does inplace edits on a set of files on a set of machines.
#
# Typical invokation:
#
#	ged vax+sun /etc/passwd
#	s/Freddy/Freddie/;
#	^D
#

$class = shift;
$files = join(' ',@ARGV);

die "Usage: ged class files <perlcmds\n" unless $files;

exec "gsh", $class, "-d", "perl -pi.bak - $files";

die "Couldn't execute gsh for some reason, stopped";
