close F;
if( $line =~ /^VERSION = (\w)$/)
{
- $k_v = $1;
+ $k_v = $1;
}
#print "$k_v\n";
}
if( $lnum == 7 )
{
- if( $line !~ /^(\s){4}PD\#(\d)+/ &&
- $line !~ /^(\s){4}PD\#SWPL-(\d)+/ )
+ if( $line !~ /^(\s){4}PD\#/ )
{
$err_cnt += 1;
$line =~ s/^(\s){4}//;
- $err_msg .= " $err_cnt: <PD#xxxx/PD#SWPL-XXXX: detailed description>, but <$line>\n";
+ $err_msg .= " $err_cnt: <PD#XXXX: detailed description>, but <$line>\n";
}
}
}
if( $lnum == 5 )
{
- if ($line !~ /^(\s){4}PD\#(\d)+:\s([\w]+:\s){1,2}[\w]+.*[\S]+$/
- && $line !~ /^(\s){4}PD\#SWPL-(\d)+:\s([\w]+:\s){1,2}[\w]+.*[\S]+$/)
+ if ($line !~ /^(\s){4}PD\#(\w)+:\s([\w]+:\s){1,2}[\w]+.*[\S]+$/)
{
$err_cnt += 1;
$line =~ s/^(\s){4}//;