summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--MDK/Common/Globals.pm61
-rw-r--r--perl_checker.src/tree.ml3
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), _) ->