FreeBSD $0 dance.
[p5sagit/p5-mst-13.2.git] / cygwin / perlld.in
index b33d0e2..773bb66 100644 (file)
@@ -47,7 +47,7 @@ if ($args !~ /\-o (\S+)/) {
   }
   if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; };
   my $v_e_r_s = '5_9_0';
-  if ( $dllname =~ /.*perl.*/) { 
+  if ( $dllname =~ /libperl.*/) { 
     $dllname ="cygperl$v_e_r_s.dll";
   } else {
   $dllname ="$libname.dll";