Permalink
Browse files

fix path for =Include

  • Loading branch information...
1 parent a184614 commit 9576987db010286db16ac3e86eaf97b1922b5635 @zag committed Aug 7, 2012
Showing with 5 additions and 0 deletions.
  1. +2 −0 Changes
  2. +3 −0 lib/WriteAt.pm
View
@@ -1,5 +1,7 @@
Revision history for Perl extension WriteAt.
+
+ + track path for =Include
0.02
+ rename to WriteAt,
+ add russian SEMANTIC blocks
View
@@ -116,6 +116,9 @@ sub get_book_info_blocks {
#convert =Include $n to DOM if To::* passed
if ( $to && $n->name eq 'Include' ) {
$n = $to->_make_dom_node($n);
+ #set current path
+ $to->context->custom->{src} = $n->{PATH};
+
}
if ( my $converted_block_name = &get_name_from_locale( $n->name ) ) {
push @{$res->{$converted_block_name}}, $n;

0 comments on commit 9576987

Please sign in to comment.