tie a variable; untested

Perl · Jun 7, 2021 · 14cfc78 · 14cfc78
1 parent b59587e
commit 14cfc78
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/lib/perl5db.pl b/lib/perl5db.pl
@@ -1225,6 +1225,16 @@ =head2 SETTING UP THE DEBUGGER GREETING
 our ($client_editor);
 *emacs = $client_editor if $client_editor;    # May be used in afterinit()...
 
+package RenameVariable;
+require Tie::Scalar;
+our @ISA = qw(Tie::Scalar);
+our $message = '$slave_editor deprecated; use $client_editor instead';
+sub FETCH { warn $message; }
+sub STORE { die $message; }
+
+
+package DB;
+
 =head2 READING THE RC FILE
 
 The debugger will read a file of initialization options if supplied. If