This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
help cygwin find its dlls even on taint tests with no path
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Sun, 7 Jan 2007 16:56:28 +0000 (08:56 -0800)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 8 Jan 2007 07:19:02 +0000 (07:19 +0000)
From: "Yitzchak Scott-Thoennes" <sthoenna@efn.org>
Message-ID: <2437.63.226.247.31.1168217788.squirrel@63.226.247.31>

p4raw-id: //depot/perl@29713

cygwin/Makefile.SHs
t/op/taint.t

index dee49c0..90f201d 100644 (file)
@@ -206,4 +206,12 @@ distdir: miniperl
        ./miniperl '-MExtUtils::Manifest' \
        -e "ExtUtils::Manifest::manicopy(ExtUtils::Manifest::maniread(),'$(DIST_DIRECTORY)')"
 
        ./miniperl '-MExtUtils::Manifest' \
        -e "ExtUtils::Manifest::manicopy(ExtUtils::Manifest::maniread(),'$(DIST_DIRECTORY)')"
 
+cygwin1.dll: /bin/cygwin1.dll
+       cp /bin/cygwin1.dll .
+
+cygcrypt-0.dll: /bin/cygcrypt-0.dll
+       cp /bin/cygcrypt-0.dll .
+
+test_prep: cygwin1.dll cygcrypt-0.dll
+
 !NO!SUBS!
 !NO!SUBS!
index 5337332..ec7c498 100755 (executable)
@@ -155,22 +155,6 @@ my $TEST = catfile(curdir(), 'TEST');
     delete @ENV{@MoreEnv};
     $ENV{TERM} = 'dumb';
 
     delete @ENV{@MoreEnv};
     $ENV{TERM} = 'dumb';
 
-    if ($Is_Cygwin && ! -f 'cygwin1.dll') {
-       system("/usr/bin/cp /usr/bin/cygwin1.dll .") &&
-           die "$0: failed to cp cygwin1.dll: $!\n";
-       eval q{
-           END { unlink "cygwin1.dll" }
-       };
-    }
-
-    if ($Is_Cygwin && ! -f 'cygcrypt-0.dll' && -f '/usr/bin/cygcrypt-0.dll') {
-       system("/usr/bin/cp /usr/bin/cygcrypt-0.dll .") &&
-           die "$0: failed to cp cygcrypt-0.dll: $!\n";
-       eval q{
-           END { unlink "cygcrypt-0.dll" }
-       };
-    }
-
     test eval { `$echo 1` } eq "1\n";
 
     SKIP: {
     test eval { `$echo 1` } eq "1\n";
 
     SKIP: {