summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-01 19:44:53 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-01 19:44:53 +0000
commitecdc43cec342a9d67d2de93265991168a0d88aab (patch)
treea5c0fd6c3961756239cf93381c28106337992991
parent8e5c3a3cb9ee659ab57c4ba094152b5f35b7fdb0 (diff)
downloaddrakx-ecdc43cec342a9d67d2de93265991168a0d88aab.tar
drakx-ecdc43cec342a9d67d2de93265991168a0d88aab.tar.gz
drakx-ecdc43cec342a9d67d2de93265991168a0d88aab.tar.bz2
drakx-ecdc43cec342a9d67d2de93265991168a0d88aab.tar.xz
drakx-ecdc43cec342a9d67d2de93265991168a0d88aab.zip
stringify using a perl_checker compliant way
-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} || {}}) {