← Back to branch summary

~ubuntu-branches/ubuntu/saucy/padre/saucy-proposed

« back to all changes in this revision

Viewing changes to lib/Padre/Project.pm

  • Committer: Package Import Robot
  • Author(s): Dominique Dumont, gregor herrmann, Dominique Dumont
  • Date: 2012-01-04 12:04:20 UTC
  • mfrom: (1.3.3)
  • Revision ID: package-import@ubuntu.com-20120104120420-i5oybqwf91m1d3il
Tags: 0.92.ds1-1
[ gregor herrmann ]
* Remove debian/source/local-options; abort-on-upstream-changes
  and unapply-patches are default in dpkg-source since 1.16.1.
* Swap order of alternative (build) dependencies after the perl
  5.14 transition.

[ Dominique Dumont ]
* Imported Upstream version 0.92.ds1
* removed fix-spelling patch (applied upstream)
* lintian-override: use wildcard to avoid listing a gazillion files
* updated size of some 'not-real-man-page' entries
* rules: remove dekstop cruft (replaced by a file provided in debian
  directory)
* control: removed Breaks statement. Add /me to uploaders. Updated
  dependencies
* rules: make sure that non-DFSG file (i.e. the cute butterfly, sigh)
  is not distributed

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Padre/Project.pm
9
9
use Padre::Constant ();
10
10
use Padre::Current  ();
11
11
 
12
 
our $VERSION    = '0.90';
 
12
our $VERSION    = '0.92';
13
13
our $COMPATIBLE = '0.81';
14
14
 
15
15
 
154
154
        my $class = shift;
155
155
        my $root  = shift;
156
156
        if ( -d File::Spec->catdir( $root, '.svn' ) ) {
157
 
                return 'SVN';
 
157
                return Padre::Constant::SUBVERSION;
158
158
        }
159
159
        if ( -d File::Spec->catdir( $root, '.git' ) ) {
160
 
                return 'Git';
 
160
                return Padre::Constant::GIT;
161
161
        }
162
162
        if ( -d File::Spec->catdir( $root, '.hg' ) ) {
163
 
                return 'Mercurial';
 
163
                return Padre::Constant::MERCURIAL;
164
164
        }
165
165
        if ( -d File::Spec->catdir( $root, '.bzr' ) ) {
166
 
                return 'Bazaar';
 
166
                return Padre::Constant::BAZAAR;
167
167
        }
168
168
        if ( -f File::Spec->catfile( $root, 'CVS', 'Repository' ) ) {
169
 
                return 'CVS';
 
169
                return Padre::Constant::CVS;
170
170
        }
171
171
        return undef;
172
172
}