#!/usr/bin/perl
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
#NAME
#   rename - use a perl string rewrite to change the names of files
#
#SYNOPSIS
#   rename perlexpr [files]
#
# My favorite example is the 'rename' script from  the  distribution;
# it's the fastest way to change all .o files to .o.bak, etc.:
#   rename 's/$/.bak/' *.o
# Note  that this script will read file names from stdin if there are
# none on the command line.
#
# Bug fix: On some systems, the rename won't occur if  the  new  name
# exists;  on  others, the old file with the new name will disappear.
# I've fixed this by using the Backup.pm module  to  change  the  old
# name  to  whatever the default backup scheme does (appending '-' by
# default).  This means the old file will still be there, backed up.
#
#AUTHOR                                 
#  modified from the CPAN version by John Chambers <jc:trillian.mit.edu>
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Here's where I link my .pm files:
	$HOME = $ENV{'HOME'} || '.';
	push @INC, "$HOME/lib", "$HOME/sh";
	require "Backup.pm";	# Rename files for backup

($op = shift) || die "Usage: rename perlexpr [filenames]\n";
if (!@ARGV) {
	@ARGV = <STDIN>;
	chop(@ARGV);
}
for $old (@ARGV) {
	$_ = $old;
	eval $op;
#	eval("$new =~ $op");	# Why doesn't this work?
	die $@ if $@;			# Die if invalid pattern
	$new = $_;				# Is this necessary?
	if ($new ne $old) {
		Backup($new) if -f $new;
		rename($old,$new);
#	} else {
#		print "$0: $old not changed.\n";	# Debug info.
	}
}