return undef for empty tags
authorDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 26 Apr 2016 17:42:39 +0000 (19:42 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 26 Apr 2016 17:42:39 +0000 (19:42 +0200)
star2016-contributions.pl

index d223129..b11aee8 100755 (executable)
@@ -98,7 +98,8 @@ sub enc {
 }
 sub l1 {
        my $l = shift;
-       return 'FIXME ref ' . dump($l) if ref $l;
+       #return 'FIXME ref ' . dump($l) if ref $l;
+       return undef if ref $l;
        return enc($l) if $l =~ m/([\x{80}-\x{ff}])/;
        return $l;
 }