[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[8245] parsetexi save file directory
From: |
gavinsmith0123 |
Subject: |
[8245] parsetexi save file directory |
Date: |
Sat, 29 Sep 2018 06:09:44 -0400 (EDT) |
Revision: 8245
http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8245
Author: gavin
Date: 2018-09-29 06:09:44 -0400 (Sat, 29 Sep 2018)
Log Message:
-----------
parsetexi save file directory
Modified Paths:
--------------
trunk/tp/Texinfo/XS/parsetexi/Parsetexi.pm
Modified: trunk/tp/Texinfo/XS/parsetexi/Parsetexi.pm
===================================================================
--- trunk/tp/Texinfo/XS/parsetexi/Parsetexi.pm 2018-09-29 08:28:28 UTC (rev
8244)
+++ trunk/tp/Texinfo/XS/parsetexi/Parsetexi.pm 2018-09-29 10:09:44 UTC (rev
8245)
@@ -257,7 +257,6 @@
my $file_name = shift;
my $tree_stream;
- $self->{'info'}->{'input_file_name'} = $file_name;
parse_file ($file_name);
my $TREE = build_texinfo_tree ();
@@ -307,12 +306,9 @@
$self->{'info'}->{'input_encoding_name'} = $input_encoding;
}
- if (!$self->{'TEST'}) {
- $self->{'info'}->{'input_file_name'} = $file_name;
- } else {
- my ($filename, $directories, $suffix) = fileparse($file_name);
- $self->{'info'}->{'input_file_name'} = $filename;
- }
+ my ($basename, $directories, $suffix) = fileparse($file_name);
+ $self->{'info'}->{'input_file_name'} = $basename;
+ $self->{'info'}->{'input_directory'} = $directories;
return $TREE;
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [8245] parsetexi save file directory,
gavinsmith0123 <=