Changeset 9 for web/trunk/bin/sophie_scan

Timestamp:

11/20/10 17:15:44 (14 years ago)

Author:

nanardon

Message:

• fix modified path detection

File:

• web/trunk/bin/sophie_scan (modified) (2 diffs)

web/trunk/bin/sophie_scan

@@ -14 +14 @@
 
 while (1) {
-    alarm 100;
+    alarm 30;
     if (update_base(keys %modified_paths)) {
         %modified_paths = ();
@@ -33 +33 @@
             sub {
                 my $e = shift;
-                warn $e->name;
-                $modified_paths{$e->name} = 1;
+                warn $e->w->name;
+                $modified_paths{$e->w->name} = 1;
             }
         )