Made %current_level visible outside this file.

Gisle Aas · Gisle Aas · commit 10a2e6af379a · 1996-02-26T20:14:25.000Z
diff --git a/lib/LWP/Debug.pm b/lib/LWP/Debug.pm
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl -w
 #
-# $Id: Debug.pm,v 1.8 1996/02/26 19:09:17 aas Exp $
+# $Id: Debug.pm,v 1.9 1996/02/26 20:14:25 aas Exp $
 #
 package LWP::Debug;
 
@@ -68,7 +68,7 @@ require Exporter;
 use Carp ();
 
 my @levels = qw(trace debug conns);
-my %current_level = ();
+%current_level = ();
 
 
 sub level

Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`#!/usr/local/bin/perl -w`
`2`	`2`	`#`
`3`		`-# $Id: Debug.pm,v 1.8 1996/02/26 19:09:17 aas Exp $`
	`3`	`+# $Id: Debug.pm,v 1.9 1996/02/26 20:14:25 aas Exp $`
`4`	`4`	`#`
`5`	`5`	`package LWP::Debug;`
`6`	`6`
`@@ -68,7 +68,7 @@ require Exporter;`
`68`	`68`	`use Carp ();`
`69`	`69`
`70`	`70`	`my @levels = qw(trace debug conns);`
`71`		`-my %current_level = ();`
	`71`	`+%current_level = ();`
`72`	`72`
`73`	`73`
`74`	`74`	`sub level`