#!/usr/bin/env perl
#
# $Id$

use warnings;
use strict;

my @args;

while ( @ARGV && $ARGV[0] !~ /^-/ && -e $ARGV[0] )
{
  push( @args, pop(@ARGV) );
}

exec(
  'find', @args, qw(-name .svn -prune
   -o -name .git -prune
   -o -name .snapshot -prune
   -o -name ~snapshot -prune
   -o -type f), @ARGV, '-print'
 )