From 53f5e3f038d2d502e113c7533e1aa8213a6bda1c Mon Sep 17 00:00:00 2001 From: Yitzchak Scott-Thoennes Date: Thu, 12 May 2005 23:15:45 -0700 Subject: [PATCH] change to quiet cygwin's perlld Message-ID: <20050513131545.GB4024@efn.org> p4raw-id: //depot/perl@24461 --- cygwin/perlld.in | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/cygwin/perlld.in b/cygwin/perlld.in index 0e30c39..871f108 100644 --- a/cygwin/perlld.in +++ b/cygwin/perlld.in @@ -48,10 +48,10 @@ if ($args !~ /\-o (\S+)/) { if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; }; my $v_e_r_s = '@VERSION@'; $v_e_r_s =~ tr/./_/; - if ( $dllname =~ /libperl.*/) { + if ( $dllname =~ /libperl.*/) { $dllname ="cygperl$v_e_r_s.dll"; } else { - $dllname ="$libname.dll"; + $dllname ="$libname.dll"; } $libname ="lib$libname" unless ($libname =~ /^lib/); print DEBUGFILE "dll name: $dllname\nimport library: $libname\npath: $path\n" if $DEBUG; @@ -77,9 +77,9 @@ if ($args !~ /\-o (\S+)/) { close DEBUGFILE if $DEBUG; #--------------------------------------------------------------------------- -sub shellexec{ - my $command =shift; - print $command; +sub shellexec { + my $command = shift; + print STDERR $command; print DEBUGFILE $command if $DEBUG; system($command) == 0 or die "perlld: *** system() failed to execute\n$command\n"; -- 2.7.4