summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/mygtk2.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 6657c8acc..7208c30e9 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -83,9 +83,9 @@ sub gtkval_register {
}
sub gtkval_modify {
my ($ref, $val, @to_skip) = @_;
- my $prev = "$ref";
+ my $prev = '' . $ref;
$$ref = $val;
- if ($prev ne "$ref") {
+ if ($prev ne '' . $ref) {
internal_error();
}
foreach (map { @$_ } values %{$refs{$ref} || {}}) {