[perl #48118] [PATCH] Replace additional instances of '$/'

[via RT]

# New Ticket Created by  James Keenan 
# Please include the string:  [perl #48118]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=48118 >

The patch replaces Perl special variable $/ with \n in 8 locations in modules 
under config/.

kid51

Index: config/init/hints/linux.pm
===================================================================
--- config/init/hints/linux.pm  (revision 23449)
+++ config/init/hints/linux.pm  (working copy)
@@ -16,7 +16,7 @@
     my $verbose;
 
     $verbose = $conf->options->get('verbose');
-    print $/ if $verbose;
+    print "\n" if $verbose;
 
     # should find g++ in most cases
     my $link = $conf->data->get('link') || 'c++';
Index: config/auto/m4.pm
===================================================================
--- config/auto/m4.pm   (revision 23449)
+++ config/auto/m4.pm   (working copy)
@@ -37,7 +37,7 @@
     my ( $self, $conf ) = @_;
 
     $verbose = $conf->options->get( 'verbose' );
-    print $/ if $verbose;
+    print "\n" if $verbose;
 
     my $archname = $conf->data->get_p5('archname');
     my ( $cpuarch, $osname ) = split m/-/, $archname, 2;
Index: config/auto/warnings.pm
===================================================================
--- config/auto/warnings.pm     (revision 23449)
+++ config/auto/warnings.pm     (working copy)
@@ -131,7 +131,7 @@
     my ( $self, $conf ) = @_;
 
     $verbose = $conf->options->get('verbose');
-    print $/ if $verbose;
+    print "\n" if $verbose;
 
     # add on some extra warnings if requested
     push @potential_warnings, @cage_warnings
@@ -164,7 +164,7 @@
 
     my $output_file = 'test.cco';
 
-    $verbose and print "trying attribute '$warning'$/";
+    $verbose and print "trying attribute '$warning'\n";
 
     my $cc = $conf->option_or_data('cc');
     cc_gen('config/auto/warnings/test_c.in');
@@ -173,24 +173,24 @@
     my $tryflags = "$ccflags $warning";
 
     my $command_line = Parrot::Configure::Step::_build_compile_command( $cc, 
$tryflags );
-    $verbose and print "  ", $command_line, $/;
+    $verbose and print "  ", $command_line, "\n";
 
     # Don't use cc_build, because failure is expected.
     my $exit_code =
         Parrot::Configure::Step::_run_command( $command_line, $output_file, 
$output_file );
-    $verbose and print "  exit code: $exit_code$/";
+    $verbose and print "  exit code: $exit_code\n";
 
     $conf->data->set( $warning => !$exit_code | 0 );
 
     return if $exit_code;
 
     my $output = Parrot::BuildUtil::slurp_file($output_file);
-    $verbose and print "  output: $output$/";
+    $verbose and print "  output: $output\n";
 
     if ( $output !~ /error|warning|not supported/i ) {
         $conf->data->set( ccflags => $tryflags );
         my $ccflags = $conf->data->get("ccflags");
-        $verbose and print "  ccflags: $ccflags$/";
+        $verbose and print "  ccflags: $ccflags\n";
         return 1;
     }
     else {