changeset 11:24ff8a9c76c4

all day for three lines
author Robert McIntyre <rlm@mit.edu>
date Tue, 25 Oct 2011 08:00:48 -0700
parents 83e16df2288a
children 737c903fc815
files auto-weave.pl
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/auto-weave.pl	Tue Oct 25 07:52:02 2011 -0700
     1.2 +++ b/auto-weave.pl	Tue Oct 25 08:00:48 2011 -0700
     1.3 @@ -1,8 +1,8 @@
     1.4  #!/usr/bin/perl
     1.5  
     1.6  use Linux::Inotify2;
     1.7 -use AnyEvent;
     1.8 -
     1.9 +use WWW::Mechanize::Firefox;
    1.10 +my $mech = WWW::Mechanize::Firefox->new();
    1.11  
    1.12  my $inotify = new Linux::Inotify2
    1.13    or die "unable to create new inotify object: $!";
    1.14 @@ -40,6 +40,7 @@
    1.15      $path =~ s|org|html|g;
    1.16      print ("$path\n");
    1.17      #system ("firefox $path");
    1.18 +    $mech->get($path);
    1.19      $ignore_next = 1;
    1.20  
    1.21  });