Changeset 3194

Timestamp:

03/07/09 11:27:58 (3 years ago)

Author:

szabgab

Message:

fix the get_project_dir method

File:

• trunk/Padre/lib/Padre/Util.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Util.pm

@@ -266 +266 @@
 
     my $olddir = File::Basename::dirname($filename);
-    my $dir    = File::Basename::dirname($olddir);
-    #print "DIR: $olddir\n     $dir\n";
+    my $dir    = $olddir;
     while (1) {
-        last if $olddir eq $dir;
-        last if -e File::Spec->catfile($dir, 'Makefile.PL');
-        last if -e File::Spec->catfile($dir, 'Build.PL');
-        #print "trying $dir\n";
+#       print "DIR: $olddir\n     $dir\n";
+        return $dir if -e File::Spec->catfile($dir, 'Makefile.PL');
+        return $dir if -e File::Spec->catfile($dir, 'Build.PL');
         $olddir = $dir;
         $dir = File::Basename::dirname($dir);
-    }
-    return if $dir eq $olddir;
-    return $dir;
+
+        last if $olddir eq $dir;
+    }
+    return;
 }