e-smith-backup/sme9/e-smith-backup-2.4.0-dont_remove_apache_group.patch

diff -Nur e-smith-backup-2.4.0/root/usr/share/perl5/vendor_perl/esmith/Backup.pm e-smith-backup-2.4.0_bz8549/root/usr/share/perl5/vendor_perl/esmith/Backup.pm
--- e-smith-backup-2.4.0/root/usr/share/perl5/vendor_perl/esmith/Backup.pm      2013-02-13 16:21:38.000000000 +0100
+++ e-smith-backup-2.4.0_bz8549/root/usr/share/perl5/vendor_perl/esmith/Backup.pm       2014-11-02 22:33:43.115000000 +0100
@@ -11,7 +11,7 @@
 
 use File::Copy;
 use Unix::PasswdFile;
-use Unix::GroupFile;
+use Passwd::Unix;
 
 use vars qw($VERSION @ISA @EXPORT_OK);
 
@@ -252,7 +252,7 @@
     copy $restored, $tmp or warn "Couldn't copy $restored, $tmp\n";
     copy $pre_restored, $restored or warn "Couldn't copy $pre_restored, $restored\n";
 
-    my $merge_from = new Unix::GroupFile($tmp, rmode => 'r' );
+    my $merge_from = new Passwd::Unix(group => $tmp);
 
     unless ($merge_from)
     {
@@ -260,7 +260,7 @@
        return undef;
     }
 
-    my $merge_into = new Unix::GroupFile($restored);
+    my $merge_into = new Passwd::Unix(group => $restored);
 
     unless ($merge_into)
     {
@@ -299,7 +299,9 @@
            next;
        }
 
-       unless ( $merge_into->gid($group) eq $merge_from->gid($group) )
+       my ($merge_into_gid, undef) = $merge_into->group($group);
+       my ($merge_from_gid, undef) = $merge_from->group($group);
+       unless ($merge_into_gid eq $merge_from_gid)
        {
            warn "merge_group: $group - GID changed during restore\n";
            next;
@@ -311,8 +313,6 @@
        $merge_into->group($special_group, $merge_from->group($special_group));
     }
 
-    $merge_into->commit;
-
     return 1;
 }
 
1	diff -Nur e-smith-backup-2.4.0/root/usr/share/perl5/vendor_perl/esmith/Backup.pm e-smith-backup-2.4.0_bz8549/root/usr/share/perl5/vendor_perl/esmith/Backup.pm
2	--- e-smith-backup-2.4.0/root/usr/share/perl5/vendor_perl/esmith/Backup.pm 2013-02-13 16:21:38.000000000 +0100
3	+++ e-smith-backup-2.4.0_bz8549/root/usr/share/perl5/vendor_perl/esmith/Backup.pm 2014-11-02 22:33:43.115000000 +0100
4	@@ -11,7 +11,7 @@
5
6	use File::Copy;
7	use Unix::PasswdFile;
8	-use Unix::GroupFile;
9	+use Passwd::Unix;
10
11	use vars qw($VERSION @ISA @EXPORT_OK);
12
13	@@ -252,7 +252,7 @@
14	copy $restored, $tmp or warn "Couldn't copy $restored, $tmp\n";
15	copy $pre_restored, $restored or warn "Couldn't copy $pre_restored, $restored\n";
16
17	- my $merge_from = new Unix::GroupFile($tmp, rmode => 'r' );
18	+ my $merge_from = new Passwd::Unix(group => $tmp);
19
20	unless ($merge_from)
21	{
22	@@ -260,7 +260,7 @@
23	return undef;
24	}
25
26	- my $merge_into = new Unix::GroupFile($restored);
27	+ my $merge_into = new Passwd::Unix(group => $restored);
28
29	unless ($merge_into)
30	{
31	@@ -299,7 +299,9 @@
32	next;
33	}
34
35	- unless ( $merge_into->gid($group) eq $merge_from->gid($group) )
36	+ my ($merge_into_gid, undef) = $merge_into->group($group);
37	+ my ($merge_from_gid, undef) = $merge_from->group($group);
38	+ unless ($merge_into_gid eq $merge_from_gid)
39	{
40	warn "merge_group: $group - GID changed during restore\n";
41	next;
42	@@ -311,8 +313,6 @@
43	$merge_into->group($special_group, $merge_from->group($special_group));
44	}
45
46	- $merge_into->commit;
47	-
48	return 1;
49	}
50