Hi Mark,
I am writing a regression test suite for XFig.pm. The script attached below
works exactly in the same way if your patch XFig_text_escape.diff. Perhaps
I am failing to understand the purpose of this patch. Could you please
check this?
Thanks,
--
Rafael
#!/usr/bin/perl -w
use XFig;
my $fig = new XFig;
my $success = 1;
$fig->parseHead (*DATA);
$fig->parseBody (*DATA);
close DATA;
my @objects = $fig->eachPrimitive();
$success = 0
if scalar @objects != 1;
$elem = $objects [0];
$success = 0
if (not $elem->isText ())
|| ($elem->{text} ne q{\test});
print "Escaping backslashes in text elements: ",
($success ? "ok" : "failed"), "\n";
exit not $success;
__DATA__
#FIG 3.2
Landscape
Center
Inches
Letter
100.00
Single
-2
1200 2
4 0 0 50 -1 0 12 0.0000 6 135 345 1200 1875 \\test\001
