callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse Source
This commit is contained in:
Marc Lehmann
1999-10-27 20:13:42 +00:00
parent dcf082b6cc
commit d466f7d0a3
12 changed files with 67 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
plug-ins/perl/Gimp/Data.pm
View File

@ -24,7 +24,7 @@ sub TIEHASH {
}
sub FETCH {
my $data = eval { Gimp->find_parasite ($_[1])->data }
my $data = eval { Gimp->parasite_find ($_[1])->data }
|| ($@ ? Gimp->get_data ($_[1]) : ());
if ($data =~ /^\$VAR1 = \[/) {
thaw $data;
@ -38,7 +38,7 @@ sub STORE {
if (ref $data) {
$data = freeze $data or return;
}
eval { Gimp->attach_parasite ([$_[1], Gimp::PARASITE_PERSISTENT, $data]) };
eval { Gimp->parasite_attach ([$_[1], Gimp::PARASITE_PERSISTENT, $data]) };
Gimp->set_data ($_[1], $data) if $@;
}