Quoting Ximin Luo (2017-07-05 20:07:00) > Ximin Luo: > > Control: tags -1 + patch > > Control: reassign -1 libstring-copyright-perl > > Control: affects -1 + licensecheck > > > > Looks like I can do this by editing /usr/share/perl5/String/Copyright.pm as > > follows: > > > > # stringify objects > > $copyright = "$copyright"; > > + $copyright =~ s/(,|\band)\s*\n(?:#|\/\/|\/\*)?\s*/$1 /g; > > > > Please test and apply if it's good! > > > > This breaks some of my test cases; attached is an updated patch. It gives > good results for Sage: > > $ licensecheck -l200 --copyright src/sage/plot/arrow.py > src/sage/combinat/words/paths.py src/sage/sets/finite_set_maps.py > src/sage/modular/modform/all.py > src/sage/plot/arrow.py: GPL > [Copyright: 2006 Alex Clemesha <[email protected]>, William Stein > <[email protected]>, 2008 Mike Hansen <[email protected]>, 2009 Emily Kirkman] > > src/sage/combinat/words/paths.py: GPL (v2 or later) > [Copyright: 2009 Sebastien Labbe <[email protected]>, / 2008 Arnaud bergeron > <[email protected]>,] > > src/sage/sets/finite_set_maps.py: GPL > [Copyright: 2010 Florent Hivert <[email protected]>,] > > src/sage/modular/modform/all.py: GPL > [Copyright: 2004-2006 William Stein <[email protected]>] > > It's a little complicated - it uses replacement expressions. If you can think > of a better way of doing it, please let me know!
Thanks! I thought you wrote you were not into perl ;-) I will take a closer look and get back to you on this. - Jonas -- * Jonas Smedegaard - idealist & Internet-arkitekt * Tlf.: +45 40843136 Website: http://dr.jones.dk/ [x] quote me freely [ ] ask before reusing [ ] keep private
signature.asc
Description: signature
