changeset 606 | 30b30f9da0b7 |
parent 0 | 044383f39525 |
605:122d2b873fd1 | 606:30b30f9da0b7 |
---|---|
444 my $hw_base_name = basename($comp); |
444 my $hw_base_name = basename($comp); |
445 for my $line (@$oby) |
445 for my $line (@$oby) |
446 { |
446 { |
447 if (is_oby_statement($line)) |
447 if (is_oby_statement($line)) |
448 { |
448 { |
449 if ($line =~ /\\$hw_base_name/i) |
449 if ($line =~ /[\/\\]$hw_base_name/i) |
450 { |
450 { |
451 $line =~ /\s*=\s*(\S+)\s*/; |
451 $line =~ /\s*=\s*(\S+)\s*/; |
452 $comp = $1; |
452 $comp = $1; |
453 last; |
453 last; |
454 } |
454 } |