Mercurial > org-tools

comparison auto-weave.pl @ 7:ce96610fe058

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
perl script is amazing
author Robert McIntyre <rlm@mit.edu>
date Mon, 24 Oct 2011 09:41:38 -0700
parents 5370428e673e
children 73beed20f7de
comparison
equal deleted inserted replaced
6:5370428e673e 7:ce96610fe058
19 $inotify->watch ($_, IN_MODIFY, sub 19 $inotify->watch ($_, IN_MODIFY, sub
20 { 20 {
21 my $e = shift; 21 my $e = shift;
22 my $name = $e->fullname; 22 my $name = $e->fullname;
23 print "$name was modified\n" if $e->IN_MODIFY; 23 print "$name was modified\n" if $e->IN_MODIFY;
24 ` 24 `weave $name`;
25
26 }); 25 });
27 26
28 27
29 28
30 29