Todo updates.

[p5sagit/p5-mst-13.2.git] / utils / c2ph.PL

diff --git a/utils/c2ph.PL b/utils/c2ph.PL
index 3781dac..38b259f 100644 (file)
--- a/utils/c2ph.PL
+++ b/utils/c2ph.PL
@@ -1393,11 +1393,8 @@ chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
 unlink 'pstruct';
 print "Linking c2ph to pstruct.\n";
 if (defined $Config{d_link}) {
-   eval { link 'c2ph', 'pstruct'; };
-   goto NOLINK if ($@ && $@ =~ /function is unimplemented/);   # Win32 has $Config{d_link},
-                                                               # but Win9X doesn't have it
+  link 'c2ph', 'pstruct';
 } else {
-NOLINK:
   unshift @INC, '../lib';
   require File::Copy;
   File::Copy::syscopy('c2ph', 'pstruct');