Subversion Repositories DevTools

Rev

Rev 1560 | Rev 1564 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1560 Rev 1562
Line 6570... Line 6570...
6570
            open (TFILE, "> $m_tfileLoc" ) or
6570
            open (TFILE, "> $m_tfileLoc" ) or
6571
                Error("Failed to open file [$m_tfileLoc] : $!");
6571
                Error("Failed to open file [$m_tfileLoc] : $!");
6572
 
6572
 
6573
            while ( <IFILE> ) 
6573
            while ( <IFILE> ) 
6574
            {
6574
            {
6575
                chomp;
6575
                s~[\n\r]+$~~;               # Chomp
6576
                print TFILE "$_\n";
6576
                print TFILE "$_\n";
6577
            }
6577
            }
6578
        }
6578
        }
6579
        else
6579
        else
6580
        {
6580
        {