Changeset 424 for veekun/trunk/lib/Vee.pm
- Timestamp:
- 03/21/08 18:15:02 (2 years ago)
- Files:
-
- 1 modified
-
veekun/trunk/lib/Vee.pm (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
veekun/trunk/lib/Vee.pm
r407 r424 5 5 use strict; 6 6 use warnings; 7 8 use Image::Size; 9 use LWP::UserAgent; 10 use Time::Out qw/timeout/; 11 use YAML qw//; 7 12 8 13 # load crap … … 28 33 use Vee::Utils; 29 34 use Vee::Dex; 30 use YAML qw//;31 use LWP::UserAgent;32 use Image::Size;33 35 34 36 our $VERSION = '0.01'; … … 56 58 57 59 # grab the current revision number, if applicable 58 __PACKAGE__->cache->{svn_revision} = 59 Vee::Utils::timed_exec( 5 => sub { 60 open my $fh, '-|', 'svnversion' or return;61 my $revision = <$fh>;62 close $fh;63 $revision =~ s/ \D+ $//gx;64 return $revision;65 } ) 66 unless __PACKAGE__->debug;60 __PACKAGE__->cache->{svn_revision} = timeout 5, sub { 61 warn "begin sub"; 62 open my $fh, '-|', 'svnversion' or return; 63 my $revision = <$fh>; 64 close $fh; 65 $revision =~ s/ \D+ $//gx; 66 return $revision; 67 warn "end sub"; 68 }; 67 69 68 70 {
