Tweak for 8.3 compat.
[p5sagit/p5-mst-13.2.git] / ext / Encode / bin / enc2xs
index 3a9780b..57dca46 100644 (file)
@@ -161,7 +161,7 @@ my ($doC,$doEnc,$doUcm,$doPet);
 if ($cname =~ /\.(c|xs)$/)
  {
   $doC = 1;
-  $dname =~ s/(\.[^\.]*)?$/_def.h/;
+  $dname =~ s/(\.[^\.]*)?$/.exh/;
   chmod(0666,$dname) if -f $cname && !-w $dname;
   open(D,">$dname") || die "Cannot open $dname:$!";
   $hname =~ s/(\.[^\.]*)?$/.h/;