projects
/
scpubgit/stemmatology.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Avoid an empty-string warning
[scpubgit/stemmatology.git]
/
base
/
lib
/
Text
/
Tradition
/
Parser
/
CTE.pm
diff --git
a/base/lib/Text/Tradition/Parser/CTE.pm
b/base/lib/Text/Tradition/Parser/CTE.pm
index
6093066
..
a670d52
100644
(file)
--- a/
base/lib/Text/Tradition/Parser/CTE.pm
+++ b/
base/lib/Text/Tradition/Parser/CTE.pm
@@
-535,9
+535,9
@@
sub _add_lacunae {
# Find the anchor, if any. This marks the point where the text starts
# or ends.
my $anchor = $app->getAttribute( 'to' );
- $anchor =~ s/^\#//;
my $aname;
if( $anchor ) {
+ $anchor =~ s/^\#//;
$aname = _anchor_name( $anchor );
}