| Subject: | xml_split yet more borken (3.17) |
$ perl -Mblib -c blib/script/xml_split
Scalar found where operator expected at blib/script/xml_split line 209, near ")
$elt"
(Missing operator before $elt?)
syntax error at blib/script/xml_split line 209, near ")
$elt"
BEGIN not safe after errors--compilation aborted at blib/script/xml_split line 266.
$
Here is a cumulative patch.
Please also cleanup trailing whitespaces.
--
Alexey Tourbin
ALT Linux Team
--- XML-Twig-3.17/tools/xml_split/xml_split- 2005-03-03 06:01:15 +0000
+++ XML-Twig-3.17/tools/xml_split/xml_split 2005-03-17 10:37:17 +0000
@@ -23,7 +23,7 @@ getopts('l:c:b:n:e:p:dvhmV', $opt);
# defaults
$opt->{n} ||= 2; # number of digits used for creating parts
-$opt->{I} ||= ÃÂ"$ENV{HOME}/.xml_split";
+$opt->{I} ||= "$ENV{HOME}/.xml_split";
if( $opt->{h}) { die $USAGE, "\n"; }
if( $opt->{m}) { exec "pod2text $RealBin/$RealScript"; }
@@ -204,7 +204,7 @@ sub dump_elt
if( !$state->{no_pis})
{ # if we are still witin a fragment, just replace the element by the PI
# otherwise print it to the main document
- my $include= $state->include( $file_name)
+ my $include= $state->include( $file_name);
$elt->del_att( '#in_fragment');