get rid of MDK::Common::Globals (not used anymore by drakconnect)

2 files changed, 1 insertions, 63 deletions

diff --git a/MDK/Common/Globals.pm b/MDK/Common/Globals.pm
deleted file mode 100644
index 0e73b83..0000000
--- a/MDK/Common/Globals.pm
+++ /dev/null
@@ -1,61 +0,0 @@
-package MDK::Common::Globals;
-
-=head1 NAME
-
-Shares constant values between modules
-
-=head1 SYNOPSIS
-
-    use MDK::Common::Globals "foo", qw($a $b);
-    
-    MDK::Common::Globals::init(a => 2, b => 3);
-    
-    print $a;  # 2
-
-=cut
-
-
-sub import {
-    my (undef, $name, @globals) = @_;
-    foreach (@globals) {
-	$name =~ /^\$/ and die qq(usage : use MDK::Common::Globals "group", qw(\$var1 \$var2 ...);\n);
-	s/^\$// or die qq(bad parameter to "use MDK::Common::Globals": missing variable ``$_'' should be written ``\$$_''); #);
-
-	no strict 'refs';
-	my $v = caller() . '::' . $_;
-	my $lv = "$name __ $_";
-	*$v = *$lv;
-	eval { undef = $$lv; tie $$lv, 'MDK::Common::Globals', $_ };
-    }
-}
-
-sub init {
-    @_ % 2 == 0 or die "usage MDK::Common::Globals::init(key => val, key2 => val2, ...)\n";
-    my %l = @_;
-    foreach (keys %l) {
-	my $v = caller() . '::' . $_;
-	no strict 'refs';
-	$$v = $l{$_};
-    }
-}
-
-sub TIESCALAR {
-    my ($class, $name) = @_;
-    my $var;
-    bless [$var, undef, $name], $class;
-}
-
-sub STORE {
-    my ($o, $val) = @_;
-    $o->[1] and die "MDK::Common::Globals::$o->[2] already set\n";
-    $o->[1] = 1;
-    $o->[0] = $val;
-}
-
-sub FETCH {
-    my ($o) = @_;
-    $o->[1] or die "MDK::Common::Globals::$o->[2] unset\n";
-    $o->[0];
-}
-
-1;
diff --git a/perl_checker.src/tree.ml b/perl_checker.src/tree.ml
index a4b5dfb..6008703 100644
--- a/perl_checker.src/tree.ml
+++ b/perl_checker.src/tree.ml
@@ -176,7 +176,7 @@ let get_exported t =
   ) empty_exports t
 
 let uses_external_package = function
-  | "vars" | "MDK::Common::Globals" | "Exporter" | "diagnostics" | "strict" | "lib" | "POSIX" | "Gtk" | "Storable"
+  | "vars" | "Exporter" | "diagnostics" | "strict" | "lib" | "POSIX" | "Gtk" | "Storable"
   | "Config" | "Socket" | "IO::Socket" | "DynaLoader" | "Data::Dumper" | "Time::localtime" | "Expect" -> true
   | _ -> false
 
@@ -308,7 +308,6 @@ let get_vars_declaration global_vars_declared file_name package =
     | My_our("our", ours, pos) ->
 	List.iter (fun (context, name) -> Hashtbl.replace package.vars_declared (context, name) (pos, ref Access_none, None)) ours
 
-    | Use(Ident(Some "MDK::Common", "Globals", pos), [ String _ ; ours ])
     | Use(Ident(None, "vars", pos), [ours]) -> 
 	List.iter (fun (context, name) -> Hashtbl.replace package.vars_declared (context, name) (pos, ref Access_none, None)) (from_qw ours)
     | Use(Ident(None, "vars", pos), _) ->