This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
change to quiet cygwin's perlld
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Fri, 13 May 2005 06:15:45 +0000 (23:15 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 13 May 2005 12:52:45 +0000 (12:52 +0000)
Message-ID: <20050513131545.GB4024@efn.org>

p4raw-id: //depot/perl@24461

cygwin/perlld.in

index 0e30c39..871f108 100644 (file)
@@ -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 =~ /\./) { $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 ="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;
   }
   $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;
 
 #---------------------------------------------------------------------------
 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";
   print DEBUGFILE $command if $DEBUG;
   system($command) == 0
     or die "perlld: *** system() failed to execute\n$command\n";