diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-17 19:52:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-17 19:52:06 +0000 |
| commit | 4eee6e183013a0f0e9dce0d53c643393a9e49455 (patch) | |
| tree | 451cf9dcf0cb98a7d1c8c147094ac5fa815414e8 /cygwin | |
| parent | 497043642ba2050cd87b28b50f6a01a0f50d0e90 (diff) | |
| download | perl-4eee6e183013a0f0e9dce0d53c643393a9e49455.tar.gz | |
Integrate:
[ 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..)
Diffstat (limited to 'cygwin')
| -rw-r--r-- | cygwin/perlld.in | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/cygwin/perlld.in b/cygwin/perlld.in index 8055054328..ddaaed9793 100644 --- a/cygwin/perlld.in +++ b/cygwin/perlld.in @@ -46,8 +46,7 @@ if ($args !~ /\-o (\S+)/) { $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 { |