/[smeserver]/rpms/e-smith-base/sme8/e-smith-base-4.18.0-delete_forwarder.patch
ViewVC logotype

Annotation of /rpms/e-smith-base/sme8/e-smith-base-4.18.0-delete_forwarder.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Sun Nov 11 15:05:47 2007 UTC (16 years, 11 months ago) by bytegw
Branch: MAIN
CVS Tags: e-smith-base-4_18_0-83_el5_sme, e-smith-base-4_18_0-89_el5_sme, e-smith-base-4_18_0-90_el5_sme, e-smith-base-4_18_0-82_el5_sme, e-smith-base-4_18_0-100_el5_sme, e-smith-base-4_18_0-81_el5_sme, e-smith-base-4_18_0-77_el5_sme, e-smith-base-4_18_0-104_el5_sme, e-smith-base-4_18_0-87_el5_sme, e-smith-base-4_18_0-92_el5_sme, e-smith-base-4_18_0-103_el5_sme, e-smith-base-4_18_0-99_el5_sme, e-smith-base-4_18_0-78_el5_sme, e-smith-base-4_18_0-76_el5_sme, e-smith-base-4_18_0-88_el5_sme, e-smith-base-4_18_0-79_el5_sme, e-smith-base-4_18_0-94_el5_sme, e-smith-base-4_18_0-101_el5_sme, e-smith-base-4_18_0-98_el5_sme, e-smith-base-4_18_0-102_el5_sme
Updates

1 bytegw 1.1 diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/unsaved.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/unsaved.pm
2     --- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/unsaved.pm 2007-01-27 01:56:31.000000000 +0000
3     +++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/unsaved.pm 2007-11-11 14:16:21.000000000 +0000
4     @@ -31,19 +31,22 @@
5     sub set_prop {
6     my ($self, $key, $prop, $value) = @_;
7    
8     - my $current_value = $self->SUPER::get_prop($key, $prop);
9     + my $rec = $self->get($key);
10     + return unless ($rec);
11     + my $current_value = $rec->prop($prop);
12     return $current_value if (defined $current_value and $current_value eq $value);
13    
14     $self->SUPER::set_value('UnsavedChanges', 'yes');
15     - return $self->SUPER::set_prop($key, $prop, $value);
16     + return $rec->set_prop($prop, $value);
17     }
18     sub delete_prop {
19     my ($self, $key, $prop) = @_;
20     - my $current_value = $self->get_prop($key, $prop);
21     + my $rec = $self->get($key);
22     + my $current_value = $rec->prop($prop);
23     return unless (defined $current_value);
24    
25     $self->SUPER::set_value('UnsavedChanges', 'yes');
26     - return $self->SUPER::delete_prop($key, $prop);
27     + return $rec->delete_prop($prop);
28     }
29     # Deleting a record is the same as changing one
30     sub delete {

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed