Ticket #1459: patch2.txt

Index: t/11_svn.t
===================================================================
--- t/11_svn.t  (revision 19670)
+++ t/11_svn.t  (working copy)
@@ -22,6 +22,7 @@
 
 SKIP: {
    skip( "svn version 1.7.x is not supported by Padre::SVN", 3 ) if Padre::Util::SVN::local_svn_ver();
+        skip( 'svn not in PATH', 3 ) unless File::Which::which('svn');
 
    my $t = catfile( 't', '11_svn.t' );
    ok( -f $t, "Found file $t" );
Index: t/12_mime.t
===================================================================
--- t/12_mime.t (revision 19670)
+++ t/12_mime.t (working copy)
@@ -61,6 +61,7 @@
 # Detect the mime type using svn metadata
 SKIP: {
    skip( "Not an SVN checkout", 3 ) unless -e '.svn' || !Padre::Util::SVN::local_svn_ver();
+        skip( 'svn not in PATH', 3 ) unless File::Which::which('svn');
 
    my $file = catfile( 't', 'perl', 'zerolengthperl' );
    ok( -f $file, "Found zero length perl file $file" );