Fix error when $Data::Dumper::Terse is set

DrHyde · Jan 17, 2024 · 2efc430 · 2efc430
1 parent de9c46d
commit 2efc430
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 2 deletions.
diff --git a/CHANGELOG b/CHANGELOG
@@ -1,3 +1,8 @@
+65535       2024--1-17
+
+- Fix error when $Data::Dumper::Terse is set, see
+  https://github.com/DrHyde/perl-modules-Unix-Sudo/issues/19
+
 4.567.89    2021-08-06
 
 - recommend Taint::Runtime instead of the 'tainting' module, which

diff --git a/lib/Unix/Sudo.pm b/lib/Unix/Sudo.pm
@@ -3,7 +3,7 @@ package Unix::Sudo;
 use strict;
 use warnings;
 
-our $VERSION = '4.567.89';
+our $VERSION = '65535';
 
 require Exporter;
 our @ISA = qw(Exporter);
@@ -209,6 +209,7 @@ sub sudo(&) {
     foreach my $variable (keys %{$context}) {
         local $Data::Dumper::Deparse = 1;
         local $Data::Dumper::Indent  = 0;
+        local $Data::Dumper::Terse   = 0;
 
         my $value = $context->{$variable};
 
@@ -237,7 +238,7 @@ sub sudo(&) {
     $code .= $deparse->coderef2text(shift);
 
     if($ENV{UNIX_SUDO_SPILLGUTS}) { warn $code }
-    
+
     my $rv = system(
         "sudo", "-p", "Unix::Sudo needs your password: ",
         Probe::Perl->find_perl_interpreter(),

diff --git a/t/pass-variables-in.t b/t/pass-variables-in.t
@@ -38,6 +38,10 @@ sudosanity::checks && do {
     };
 
     is(sudo { $code->() }, 11, "Can read variables from the parent context");
+
+    $Data::Dumper::Terse = 1;
+    is(sudo { $code->() }, 11, 'Works when $Data::Dumper::Terse is set');
+
 };
 
 done_testing();