I managed to isolate the error, the following reproduces it:
#! /usr/bin/perl
use OpenOffice::OODoc;
my $filename="test.odt";
my $target=$filename;
$target=~s/(.+)\./$1.usc./;
my $oofile = ooFile($filename) or die "could not open $filename\n";
my $styledoc = ooDocument(file => $oofile, member => 'styles');
note that the ~s operation on $target is needed to reproduce it. It appears to depend on it containing the $1, since replacing it with
$target=~s/.+\./$&usc./;
does not give the error. Realizing this makes it of course easy to avoid the problem, but it is of course a nasty one to pin down. So to my uninformed eye it looks like ooDocument has a problem when called with $1 initiated (or something similar), which is of course a bug.
My version is current (OpenOffice-OODoc-2.026).
thank you
-- dab
