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