This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate:
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 17 Mar 2003 19:52:06 +0000 (19:52 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 17 Mar 2003 19:52:06 +0000 (19:52 +0000)
[ 19012]
We don't have the new Perl at this stage.
p4raw-link: @19012 on //depot/maint-5.8/perl: 7353bff6c5730d27add0d0abfadfddb3d119a622

p4raw-id: //depot/perl@19013
p4raw-integrated: from //depot/maint-5.8/perl@19010 'copy in'
cygwin/perlld.in (@19006..)

cygwin/perlld.in

index 8055054..ddaaed9 100644 (file)
@@ -46,8 +46,7 @@ if ($args !~ /\-o (\S+)/) {
     $path =~ s,[/\\](\.[/\\])*,/,g;
   }
   if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; };
     $path =~ s,[/\\](\.[/\\])*,/,g;
   }
   if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; };
-  my $v_e_r_s;
-  ($v_e_r_s = sprintf("%vd", $^V)) =~ tr/./_/; # v5.8.1 -> 5_8_1
+  my $v_e_r_s = '5_8_1';
   if ( $dllname =~ /.*perl.*/) { 
     $dllname ="cygperl$v_e_r_s.dll";
   } else {
   if ( $dllname =~ /.*perl.*/) { 
     $dllname ="cygperl$v_e_r_s.dll";
   } else {