Permalink
Browse files

changing `X ~~ m//` to `X ~~ //`

There were some (weird) test failures, and this looked like the right fix.
Indeed, the change makes the test failures go away.
  • Loading branch information...
1 parent e9ef376 commit f7e877ea7c7489f806b8876f94f8f1f2a4497a2f @masak committed Jul 18, 2014
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/Text/CSV.pm
View
@@ -184,7 +184,7 @@ our sub csv-write ( @csv, :$header = '', :$separator is copy = ',',
}
sub csv-quote ($str is copy = '') {
- if $always_quote or $str ~~ m/ $quote | $separator | \r | \n / {
+ if $always_quote or $str ~~ / $quote | $separator | \r | \n / {
$str = $quote ~ $str.subst($quote, $quote ~ $quote, :g) ~ $quote;
}
$str

0 comments on commit f7e877e

Please sign in to comment.