- join("\n\t", map { my @lines = (
- "\ WRITE OPT_FILE \"CASE_SENSITIVE=YES\""
- );
- my $x = $_ =~ /\[/ ? $_ : "[]".$_;
+ join("\n\t", "WRITE OPT_FILE \"CASE_SENSITIVE=YES\"",
+ map { my @lines = ();
+ use Data::Dumper;
+ print STDERR "DEBUG: ",Dumper($_);
+ my $x = $_->{lib} =~ /\[/
+ ? $_->{lib} : "[]".$_->{lib};
+ print STDERR "DEBUG: ",Dumper($x);