diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2005-05-12 23:15:45 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-13 12:52:45 +0000 |
| commit | 53f5e3f038d2d502e113c7533e1aa8213a6bda1c (patch) | |
| tree | cc0fcd3fbf7517cb6afb77bb893758b1a783c7f2 /cygwin | |
| parent | cac9b346cd9007da1905e0dcde3ff00723338d67 (diff) | |
| download | perl-53f5e3f038d2d502e113c7533e1aa8213a6bda1c.tar.gz | |
change to quiet cygwin's perlld
Message-ID: <20050513131545.GB4024@efn.org>
p4raw-id: //depot/perl@24461
Diffstat (limited to 'cygwin')
| -rw-r--r-- | cygwin/perlld.in | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/cygwin/perlld.in b/cygwin/perlld.in index 0e30c39905..871f108cc4 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"; |