--- /tmp/.private/mike/hasher/chroot/usr/share/perl5/Getopt/Long.pm.orig	2018-12-04 20:25:14.000000000 +0000
+++ /tmp/.private/mike/hasher/chroot/usr/share/perl5/Getopt/Long.pm-	2018-12-28 17:41:44.000000000 +0000
@@ -922,6 +922,8 @@
 # Option lookup.
 sub FindOption ($$$$$) {
 
+	warn "FO:[@_]";
+
     # returns (1, $opt, $ctl, $arg, $key) if okay,
     # returns (1, undef) if option in error,
     # returns (0) otherwise.
@@ -930,6 +932,10 @@
 
     print STDERR ("=> find \"$opt\"\n") if $debug;
 
+    #warn $opt =~ /^($prefix)(.*)$/s;
+    #warn "ZZ".[0,1]->[$opt =~ /^($prefix)(.*)$/s]; 
+    {use re 'debug';warn "ZZ".[0,1]->[$opt =~ /^($prefix)(.*)$/s];}
+
     return (0) unless defined($opt);
     return (0) unless $opt =~ /^($prefix)(.*)$/s;
     return (0) if $opt eq "-" && !defined $opctl->{''};