Work around cperl-mode scanning bug.

[flac-archive] / flac2mp3

diff --git a/flac2mp3 b/flac2mp3
index 8c4e7462efc18e08e62d962b946d913e913f1c8b..17452bfc04b659f79320510e4b3846a1de273bf4 100755 (executable)
--- a/flac2mp3
+++ b/flac2mp3
@@ -129,7 +129,7 @@ sub flac2mp3 {
     # any single quotes in the filename by closing the quote ('),
     # putting an escaped quote (\'), and then reopening the quote (').
     for ($fn, $title, $artist, $album, $date) {
-        s/'/'\\''/;
+        s/'/'\\''/g;
     }
 
     $outfile = sprintf("$artist ($album) \%02s $title.mp3", $track);