# Make sure that we can ping the subversion server
my $svn_entries_fh = new IO::File "$base_dir/.svn/entries",'r'
or die "unable to open $base_dir/.svn/entries: $!";
my $url_type;
my $svn_host;
while (<$svn_entries_fh>) {
# Make sure that we can ping the subversion server
my $svn_entries_fh = new IO::File "$base_dir/.svn/entries",'r'
or die "unable to open $base_dir/.svn/entries: $!";
my $url_type;
my $svn_host;
while (<$svn_entries_fh>) {