#!/bin/sh -- -*- perl -*- -w
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
    & eval 'exec perl -S $0 $argv'
    if 0;
#
# rename script examples from lwall:
#       rename 's/\.orig$//' *.orig
#       rename 'y/A-Z/a-z/ unless /^Make/' *
#       rename '$_ .= ".bad"' *.f
#       rename 'print "$_: "; s/foo/bar/ if <stdin> =~ /^y/i' *

use RISCOS::Filespec;
use RISCOS::File ':DEFAULT', '/globlist/';
$op = shift;

@ARGV = globlist( @ARGV );

die "$0 operation file [file...]" unless defined $op;

for (@ARGV) {
    $was = $_;
    eval $op;
    die $@ if $@;
#    printf "$was -> $_\n";
    rename($was,$_) or warn $! unless $was eq $_;
}
