4 use File::Find::Closures qw(find_regular_files);
6 use Time::Stamp qw(gmstamp);
8 my ($want, $files) = find_regular_files();
11 $author = 'Unknown' unless defined $author;
13 $email = '<>' unless defined $email;
16 $dir = '.' unless $dir;
18 File::Find::find($want, $dir);
22 foreach ($files->()) {
24 next if m|^git-slurp$|;
25 my $ts = gmstamp((stat $_)[9]);
29 my $git = Git::Repository->new({
31 GIT_AUTHOR_EMAIL => $email,
32 GIT_AUTHOR_NAME => $author,
37 print $git->work_tree, "\n";
38 foreach my $ts (sort { $a cmp $b } keys %ts) {
39 print "$ts @{$ts{$ts}}\n";
40 foreach my $file (@{$ts{$ts}}) {
41 $git->run('add', $file);
43 $git->run('commit', '--date', $ts, '-m', "add files for $ts");