Mercurial > org-tools
changeset 16:f433fae15c50
made auto-weave work on all projects
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Wed, 02 Nov 2011 05:01:57 -0700 |
parents | 6ef9ccf7a17e |
children | 6da973a6b93d |
files | auto-weave.pl |
diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
1.1 --- a/auto-weave.pl Wed Oct 26 05:13:16 2011 -0700 1.2 +++ b/auto-weave.pl Wed Nov 02 05:01:57 2011 -0700 1.3 @@ -7,11 +7,13 @@ 1.4 my $inotify = new Linux::Inotify2 1.5 or die "unable to create new inotify object: $!"; 1.6 1.7 -@org_files = glob("./org/*.org"); 1.8 1.9 -$" = "\n"; 1.10 -print "@org_files\n"; 1.11 +$org_files = `find /home/r/proj -name "*.org" -print0`; 1.12 +@org_files = split /\0/, $org_files; 1.13 1.14 +#@org_files = glob("./org/*.org"); 1.15 + 1.16 +for $file(@org_files){print "$file\n";} 1.17 $ignore_next = 0; 1.18 1.19