diff options
Diffstat (limited to 'contrib/perl5/eg/g/ged')
-rw-r--r-- | contrib/perl5/eg/g/ged | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/contrib/perl5/eg/g/ged b/contrib/perl5/eg/g/ged deleted file mode 100644 index 07ac88f..0000000 --- a/contrib/perl5/eg/g/ged +++ /dev/null @@ -1,21 +0,0 @@ -#!/usr/bin/perl - -# $RCSfile: ged,v $$Revision: 4.1 $$Date: 92/08/07 17:20:18 $ - -# 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"; |