zap legacy genpp support for %extra_cons_args

genpp.pl

@@ -32,9 +32,6 @@
   false => [0,0], # perl, C
   true => [1,1],
 );
-our %extra_cons_args = (
-  String => [['const char*', 'str']],
-);
 our %STAYWRAPPED = map +($_=>[]), qw(Mat String DMatch KeyPoint);
 our $IF_ERROR_RETURN = "if (CW_err.error) return *(pdl_error *)&CW_err";
 
@@ -370,7 +367,7 @@ =head1 METHODS for $fullclass\n\n
 =cut\n
 \@${fullclass}::ISA = qw(@{$class2super{$c}});
 EOD
-    my $extra_args = ($class2info{$c}||[])->[1] || $extra_cons_args{$c} || [];
+    my $extra_args = ($class2info{$c}||[])->[1] || [];
     my $cons_doc = ($class2info{$c}||[])->[2] || "\@brief Initialize OpenCV $c object.";
     my $cons_def = [$c, 'new', $cons_doc, 0, $c, ['char *', 'klass'], @$extra_args];
     genpp(@$_) for ($class2info{$c}[0] ? $cons_def : ()), grep $_->[0] eq $c, @flist;

genwrap.pl

@@ -7,7 +7,10 @@
 use Config;
 
 require ''. catfile $Bin, 'genpp.pl';
-our (%type_overrides, %type_alias, %extra_cons_args, %STAYWRAPPED);
+our (%type_overrides, %type_alias, %STAYWRAPPED);
+my %extra_cons_args = (
+  String => [['const char*', 'str']],
+);
 my %GLOBALTYPES = do { no warnings 'once'; (%PP::OpenCV::DIMTYPES, map +($_=>[]), keys %STAYWRAPPED) };
 my @PDLTYPES_SUPPORTED = grep $_->real && $_->ppsym !~/[KPQN]/ && howbig($_) <= 8, PDL::Types::types;
 my %REALCTYPE2NUMVAL = (
@@ -366,8 +369,7 @@ sub readclasses {
   return +{} if !-f 'classes.pl';
   my @classlist = do ''. catfile curdir, 'classes.pl'; die if $@;
   +{map +($_->[0]=>[
-    [], $_->[3],
-    $_->[4], $_->[5]||$extra_cons_args{$_->[0]}
+    [], @$_[3..5],
   ]), @classlist
   };
 }