diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-03-01 19:44:53 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-03-01 19:44:53 +0000 |
| commit | ecdc43cec342a9d67d2de93265991168a0d88aab (patch) | |
| tree | a5c0fd6c3961756239cf93381c28106337992991 | |
| parent | 8e5c3a3cb9ee659ab57c4ba094152b5f35b7fdb0 (diff) | |
| download | drakx-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.pm | 4 |
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} || {}}) { |