Changeset 10615 for trunk/Padre/lib/Padre/Util.pm
- Timestamp:
- 02/08/10 02:23:11 (2 years ago)
- File:
-
- 1 edited
-
trunk/Padre/lib/Padre/Util.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Padre/lib/Padre/Util.pm
r10436 r10615 535 535 } 536 536 537 # TODO: A much better variant would be a constant set by svn.538 sub revision {539 if ( $0 =~ /padre$/ ) {540 my $dir = $0;541 $dir =~ s/padre$//;542 my $revision = Padre::Util::svn_directory_revision($dir);543 if ( -d "$dir.svn" ) {544 return 'r' . $revision;545 }546 }547 return;548 }549 550 537 1; 551 538
Note: See TracChangeset
for help on using the changeset viewer.
