#
#========================================================================
#
-# Version 3.1.0beta0, released 3 Sep 2007.
+# Version 3.1.0, released 25 Nov 2007.
#
# See http://backuppc.sourceforge.net.
#
BEGIN {
eval "use IO::Dirent qw( readdirent DT_DIR );";
- $IODirentOk = 1 if ( !$@ );
+ if ( !$@ && opendir(my $fh, ".") ) {
+ #
+ # Make sure the IO::Dirent really works - some installs
+ # on certain file systems don't return a valid type.
+ #
+ my $dt_dir = eval("DT_DIR");
+ foreach my $e ( readdirent($fh) ) {
+ if ( $e->{name} eq "." && $e->{type} == $dt_dir ) {
+ $IODirentOk = 1;
+ last;
+ }
+ }
+ closedir($fh);
+ }
};
#
my $bpc = bless {
%$paths,
- Version => '3.1.0beta0',
+ Version => '3.1.0',
}, $class;
$bpc->{storage} = BackupPC::Storage->new($paths);
return $mesg;
}
$bpc->{Lang} = \%Lang;
+
+ #
+ # Make sure IncrLevels is defined
+ #
+ $bpc->{Conf}{IncrLevels} = [1] if ( !defined($bpc->{Conf}{IncrLevels}) );
+
return;
}