word/edit: fix thumbnail generation warnings

[sheet.git] / writer.plp

diff --git a/writer.plp b/writer.plp
index fe538ddb5bbe4fc8145f531050084f9480f18541..a5aa431cf188dca558183c9aec9738c16b8944bd 100644 (file)
--- a/writer.plp
+++ b/writer.plp
@@ -202,7 +202,10 @@ elsif (defined $post{form}) {{
        if ($reimage) {
                eval {
                        $image->convert($wordcol{thumb}->{-src}->($row), $row->{thumb});
-               } or Alert([ "Thumbnail image not generated", $@->[0] ], $@->[1]);
+               } or do {
+                       my ($warn, @details) = ref $@ ? @{$@} : $@;
+                       Alert([ "Thumbnail image not generated", $warn ], @details);
+               };
        }
 }}
 else {