Ticket #1459: patch.txt

Index: t/11_svn.t
===================================================================
--- t/11_svn.t  (revision 19529)
+++ t/11_svn.t  (working copy)
@@ -7,7 +7,7 @@
 use Test::More;
 
 BEGIN {
-   if ( -d '.svn' ) {
+   if ( -d '.svn/props' || -d '.svn/prop-base') {
        plan tests => 4;
    } else {
        plan skip_all => 'Not in an SVN checkout';
Index: t/12_mime.t
===================================================================
--- t/12_mime.t (revision 19529)
+++ t/12_mime.t (working copy)
@@ -60,7 +60,7 @@
 
 # Detect the mime type using svn metadata
 SKIP: {
-   skip( "Not an SVN checkout", 3 ) unless -e '.svn';
+   skip( "Not an SVN checkout", 3 ) unless -d '.svn/props' || -d '.svn/prop-base';
 
    my $file = catfile( 't', 'perl', 'zerolengthperl' );
    ok( -f $file, "Found zero length perl file $file" );