Debugging

openSUSE · Oct 26, 2023 · a6985e3 · a6985e3
1 parent 260fcd6
commit a6985e3
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/Cavil/Util.pm b/lib/Cavil/Util.pm
@@ -20,7 +20,7 @@ use Carp 'croak';
 use Exporter 'import';
 use Encode qw(from_to decode);
 use Mojo::Util;
-use Mojo::File qw(path);
+use Mojo::File qw(path tempfile);
 use POSIX 'ceil';
 use Spooky::Patterns::XS;
 use Text::Glob 'glob_to_regex';
@@ -160,11 +160,12 @@ sub read_lines ($path, $start_line, $end_line) {
 }
 
 sub ssh_sign ($key, $realm, $value) {
-  my $debug = qx/ssh-keygen -Y sign -f "$key" -q -n "$realm" < <(echo -n "$value")/;
+  my $tmp = tempfile->spew($value);
+  my $debug = qx/ssh-keygen -Y sign -f "$key" -q -n "$realm" < $tmp/;
   warn "DEBUG: $debug\n";
 
   # One-liner copied from https://www.suse.com/c/multi-factor-authentication-on-suses-build-service/
-  return qx/ssh-keygen -Y sign -f "$key" -q -n "$realm" < <(echo -n "$value")  | tail -n +2 | head -n -1 | tr -d "\n"/;
+  return qx/ssh-keygen -Y sign -f "$key" -q -n "$realm" < $tmp | tail -n +2 | head -n -1 | tr -d "\n"/;
 }
 
 1;