#!/usr/bin/perl
#
# Buggy File::Find example for http://sial.org/howto/perl/file-find/
#
# $Id$
use strict;
use warnings;
#use diagnostics;
use File::Find qw/find/;
########################################################################
#
# MAIN
my $search_dir = shift || die "Usage: $0 search-dir\n";
find( \&handler, $search_dir );
exit 0;
########################################################################
#
# SUBROUTINES
sub handler {
my $current_dir = $File::Find::dir;
my $file = $File::Find::name;
warn "DBG: dir=$current_dir, file=$file ($_)\n";
my @stat_data = stat($file) or die "could not stat $file: $!\n";
}
