diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-02 00:27:40 +1300 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-02 00:27:40 +1300 |
commit | 9dcfe45f0608271019ef09c5d993961c479649fb (patch) | |
tree | ecc3e265d3bddcf1d23f2eb34dd99b553f963f7a | |
parent | Add square brackets to denote arrayref in docs (diff) | |
download | Music-Lyrics-LRC-9dcfe45f0608271019ef09c5d993961c479649fb.tar.gz Music-Lyrics-LRC-9dcfe45f0608271019ef09c5d993961c479649fb.zip |
Add missing char class delims
-rw-r--r-- | lib/Music/Lyrics/LRC.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Music/Lyrics/LRC.pm b/lib/Music/Lyrics/LRC.pm index 93a5028..5d1f309 100644 --- a/lib/Music/Lyrics/LRC.pm +++ b/lib/Music/Lyrics/LRC.pm @@ -112,7 +112,7 @@ sub add_lyric { # Check parameters int $time >= 0 or croak 'Bad lyric time'; - $text !~ m/ \r\n /msx + $text !~ m/ [\r\n] /msx or croak 'Bad lyric line'; # Push the lyric onto our list @@ -132,7 +132,7 @@ sub set_tag { or croak 'Bad tag name'; # Tag content cannot have vertical whitespace - $value !~ m/ \r\n /msx + $value !~ m/ [\r\n] /msx or croak 'Bad tag value'; # Set the tag's value on our hash |