#! perl

use RISCOS::Filespec;
use RISCOS::File qw(globlist);
use Getopt::Std;

getopts('r');

die "$0 [-r] [files]" unless @ARGV;

&rm (globlist( @ARGV ));

$fails = 0;

sub rm
{
    foreach( @_ )
    {
        if( $opt_r && -d $_ )
        {
            rm( glob "$_.*" );
            unless( rmdir $_ )
            {
                warn "$_ $!\n";
                $fails++;
            }
        }
        else
        {
            unless( unlink $_ )
            {
                warn "$_ $!\n";
                $fails++;
            }
            
        }
    }
}

$fails != 0;