fix_log_debug_art211.pl File Reference

Go to the source code of this file.

Functions
	if ($#ARGV< 0)
	open (PIN,"< $inputfile") or die"Couldn't open $inputfile"
	open (POUT,"> $outputfile") or die"Couldn't open $outputfile"
	while ($line=< PIN >)
	close (PIN)
	close (POUT)
	exit (0)

Variables
use	strict
use	warnings
my	$inputfile = $ARGV[0]
my	$outputfile = $inputfile.".new"
print check $inputfile for LOG_DEBUG	n
my	$line
	else

Function Documentation

close

(

PIN

)

close

(

POUT

)

exit

(

0

)

if

(

)

Definition at line 5 of file fix_log_debug_art211.pl.

                 {
    print "\n";
    print "USAGE: fix_log_debug_art211.pl <input-file>\n";
    print "\n";
    exit 1;
}

open

(

PIN

)

open	(	POUT	,
		"	,
			$outputfile"
	)

while

(

$line = <PIN>

)

Definition at line 19 of file fix_log_debug_art211.pl.

                      {
  chop $line;
  if (( $line =~ m/LOG_DEBUG/ ) && ( $line =~ m/<</ )) {
    if ( $line =~ m/^\/\// ) {
      print POUT "$line\n";
    } else {
      print "updating $line\n";
      print POUT "// workaround for #19851\n";
      print POUT "//$line\n";
      $line =~ s/LOG_DEBUG/mf::LogDebug/;
      print POUT "$line\n";
    }
  } else {

Variable Documentation

my $inputfile = $ARGV[0]

Definition at line 12 of file fix_log_debug_art211.pl.

my $line

Definition at line 18 of file fix_log_debug_art211.pl.

my $outputfile = $inputfile.".new"

Definition at line 13 of file fix_log_debug_art211.pl.

else

Initial value:

{
     print POUT "$line\n"

Definition at line 31 of file fix_log_debug_art211.pl.

print check $inputfile for LOG_DEBUG n

Definition at line 15 of file fix_log_debug_art211.pl.

use strict

Definition at line 2 of file fix_log_debug_art211.pl.

use warnings

Definition at line 3 of file fix_log_debug_art211.pl.