Escape multi values delimiter (references #596)

coudot · coudot · commit cebc32dc45ff · 2013-06-19T09:04:06.000Z
diff --git a/file2ldif.pl b/file2ldif.pl
@@ -140,7 +140,7 @@
             my $entry = Net::LDAP::Entry->new('o=fakedn');
             for my $i ( 0 .. $#columns ) {
                 my @values =
-                  split( /$csv_multivalues_delimiter/, $columns[$i] );
+                  split( /\Q$csv_multivalues_delimiter\E/, $columns[$i] );
                 $entry->add( $i => \@values );
             }
             $inldif->write_entry($entry);

Original file line number	Diff line number	Diff line change
`@@ -140,7 +140,7 @@`
`140`	`140`	`my $entry = Net::LDAP::Entry->new('o=fakedn');`
`141`	`141`	`for my $i ( 0 .. $#columns ) {`
`142`	`142`	`my @values =`
`143`		`- split( /$csv_multivalues_delimiter/, $columns[$i] );`
	`143`	`+ split( /\Q$csv_multivalues_delimiter\E/, $columns[$i] );`
`144`	`144`	`$entry->add( $i => \@values );`
`145`	`145`	`}`
`146`	`146`	`$inldif->write_entry($entry);`