vfmg (DEVEL): vfmg - allov using %opt, @desktop and @menu

[sparky]

Author: sparky                       Date: Fri Dec  1 21:50:47 2006 GMT
Module: vfmg                          Tag: DEVEL
---- Log message:
- allov using %opt, @desktop and @menu

---- Files affected:
vfmg:
   vfmg (1.98.2.1 -> 1.98.2.2) 

---- Diffs:

================================================================
Index: vfmg/vfmg
diff -u vfmg/vfmg:1.98.2.1 vfmg/vfmg:1.98.2.2
--- vfmg/vfmg:1.98.2.1	Fri Dec  1 22:31:48 2006
+++ vfmg/vfmg	Fri Dec  1 22:50:42 2006
@@ -40,7 +40,7 @@
 	destdir		=> "",
 	
 );
-my %opt;
+our %opt;
 my $o_output;
 $defopt{xterm}="$ENV{'VFMG_TERM'}" if $ENV{'VFMG_TERM'};
 
@@ -159,6 +159,7 @@
 die "Missing argument {".wms()."}\n" unless exists $ARGV[0];
 
 $o_output = $ARGV[0];
+# require "VFMG/${o_output}_out.pm"; # for testing
 eval { require "VFMG/${o_output}_out.pm" }
 	or die "Unrecognized argument: $o_output\n";
 
@@ -312,7 +313,7 @@
 # what is $DESKTOP_FILE_PATH?
 
 my @apps;	# $apps{name}{category}=[icon,exec]
-my @desktop;
+our @desktop;
 find(\&wanted, grep -d, map {"$_/applications"} @xdg_data_dirs);
 
 sub wanted { # {{{
@@ -478,7 +479,7 @@
 	$1;
 }
 
-my @menu; # $menu[parent]{dir number} = (menu number);
+our @menu; # $menu[parent]{dir number} = (menu number);
 my $desknum = $#desktop;
 
 # logic {{{
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/vfmg/vfmg?r1=1.98.2.1&r2=1.98.2.2&f=u