Changeset 426 for veekun/trunk/lib/Vee.pm

Timestamp:

03/21/08 18:23:21 (2 years ago)

Author:

eevee

Message:

Removed use of svnversion in favor of svn info, which is way faster and only inaccurate in cases I don't care about.

Files:

• veekun/trunk/lib/Vee.pm (modified) (1 diff)

veekun/trunk/lib/Vee.pm

@@ -59 +59 @@
 # grab the current revision number, if applicable
 __PACKAGE__->cache->{svn_revision} = timeout 5, sub {
-    open my $fh, '-|', 'svnversion' or return;
-    my $revision = <$fh>;
-    close $fh;
-    $revision =~ s/ \D+ $//gx;
-    return $revision;
+    open my $fh, '-|', 'svn', 'info'
+        or return;
+    while (my $line = <$fh>) {
+        my ($revision) = ($line =~ /^ Revision: [ ] (\d+) $/smx);
+        if ($revision) {
+            return $revision;
+        }
+    }
+    return;
 };