#!/usr/bin/perl -w
# (C) 2003-2007 Willem Jan Hengeveld <itsme@xs4all.nl>
# Web: http://www.xs4all.nl/~itsme/
#      http://wiki.xda-developers.com/
#
# $Id: pfind 1502 2007-04-15 07:54:20Z itsme $
#

use strict;

# this is sometimes quicker that cygwin find under windows.

use IO::Dir;

my $path= shift;

ProcessDir($path);

exit(0);

sub ProcessDir {
    my ($path)= @_;

    my $dir= IO::Dir->new($path);
    while (defined ($_=$dir->read())) {
        next if ($_ eq "." || $_ eq "..");
        print "$path/$_\n";
        if (-d "$path/$_") {
            ProcessDir("$path/$_");
        }
    }
    $dir->close();
}