[gimp-perl] Allow any data in Gimp::Data, not just array-ref.



commit 1521aa41a5f4801058adcd69ac775baa721ed472
Author: Ed J <edj src gnome org>
Date:   Sat May 24 04:57:00 2014 +0100

    Allow any data in Gimp::Data, not just array-ref.

 Gimp/Data.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/Gimp/Data.pm b/Gimp/Data.pm
index b7d8c9d..586c59d 100644
--- a/Gimp/Data.pm
+++ b/Gimp/Data.pm
@@ -14,7 +14,7 @@ sub freeze($) {
 
 sub thaw {
    my $data = shift;
-   if ($data =~ /^\$VAR1 = \[/) {
+   if ($data =~ /^\$VAR1 =/) {
       my $VAR1;
       no warnings;
       return eval $data;


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]