Changeset 7869e48 for perl/modules/WordWrap
- Timestamp:
- Jan 12, 2013, 1:43:13 PM (11 years ago)
- Children:
- e3a0d71, 4485285
- Parents:
- 4626016
- git-author:
- Jason Gross <jgross@mit.edu> (01/12/13 13:13:18)
- git-committer:
- Jason Gross <jgross@mit.edu> (01/12/13 13:43:13)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/WordWrap/inc/Module/Install/Metadata.pm
r1375a6a r7869e48 482 482 sub _perl_version { 483 483 my $v = $_[-1]; 484 $v =~ s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/e; 484 $v =~ s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/e; 485 485 $v =~ s/^([1-9])\.([1-9]\d?\d?)\.(0|[1-9]\d?\d?)$/sprintf("%d.%03d%03d",$1,$2,$3 || 0)/e; 486 486 $v =~ s/(\.\d\d\d)000$/$1/; … … 505 505 sub write_mymeta { 506 506 my $self = shift; 507 507 508 508 # If there's no existing META.yml there is nothing we can do 509 509 return unless -f 'META.yml';
Note: See TracChangeset
for help on using the changeset viewer.