Changeset d7bcff8 for perl/lib

Timestamp:

Jul 27, 2009, 11:23:57 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

6e48560

Parents:

13614e7

git-author:

Nelson Elhage <nelhage@mit.edu> (07/25/09 01:23:25)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/27/09 23:23:57)

Message:

Keep a global list of all defined command names.

Location:

perl/lib

Files:

• BarnOwl.pm (modified) (1 diff)
• BarnOwl/Hooks.pm (modified) (1 diff)

perl/lib/BarnOwl.pm

@@ -176 +176 @@
 # switch, if present.
 our $configfile;
+
+our @all_commands;
 
 if(!$configfile && -f $ENV{HOME} . "/.barnowlconf") {

perl/lib/BarnOwl/Hooks.pm

@@ -212 +212 @@
         }
     }
+
+    if(!contains(\@BarnOwl::all_commands, $command)) {
+        push @BarnOwl::all_commands, $command;
+    }
 }