Fix font-optimizer for Perl 5.18.

[librarian.git] / librarian / dcparser.py

diff --git a/librarian/dcparser.py b/librarian/dcparser.py
index eddd8e5..7dfcd21 100644 (file)
--- a/librarian/dcparser.py
+++ b/librarian/dcparser.py
@@ -25,7 +25,7 @@ class Person(object):
 
     @classmethod
     def from_text(cls, text):
-        parts = [ token.strip() for token in text.split(',') ]
+        parts = [ token.strip() for token in text.rsplit(',', 1) ]
         if len(parts) == 1:
             surname = parts[0]
             names = []