From 6ddecb4ecc86e33b948abfd697d21e229481ed89 Mon Sep 17 00:00:00 2001
From: Richard Hansen <rhansen@rhansen.org>
Date: Wed, 24 Jul 2024 14:03:17 -0400
Subject: [PATCH] Replace `use vars` with `our`

From the documentation for `vars`:

> NOTE: For use with variables in the current package for a single
> scope, the functionality provided by this pragma has been superseded
> by "our" declarations, available in Perl v5.6.0 or later, and use of
> this pragma is discouraged.
---
 ddclient.in | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/ddclient.in b/ddclient.in
index c7c58a4..5f5baa1 100755
--- a/ddclient.in
+++ b/ddclient.in
@@ -134,9 +134,8 @@ my $last_emailbody = '';
 ## flags and options to override).
 my $daemon_default = ($programd =~ /d$/) ? interval('5m') : undef;
 
-use vars qw($file $lineno);
-local $file   = '';
-local $lineno = '';
+our $file = '';
+our $lineno = '';
 
 $ENV{'PATH'} = (exists($ENV{PATH}) ? "$ENV{PATH}:" : "") . "/sbin:/usr/sbin:/bin:/usr/bin:/etc:/usr/lib:";