diff options
| author |   millert <millert@openbsd.org> | 2009-10-12 18:24:18 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2009-10-12 18:24:18 +0000 |
| commit | df042708019d82f10a844f81545b8510eb33a43b (patch) | |
| tree | f1aa8a2977492c1084da8a9a42ad99fe382fba66 /gnu/usr.bin/perl/lib/ExtUtils/t/parse_version.t | |
| parent | to support virtual domains properly, smtpd needed to have the domain stored (diff) | |
| download | wireguard-openbsd-df042708019d82f10a844f81545b8510eb33a43b.tar.xz wireguard-openbsd-df042708019d82f10a844f81545b8510eb33a43b.zip | |
Merge in perl 5.10.1
Diffstat (limited to 'gnu/usr.bin/perl/lib/ExtUtils/t/parse_version.t')
| -rwxr-xr-x | gnu/usr.bin/perl/lib/ExtUtils/t/parse_version.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/lib/ExtUtils/t/parse_version.t b/gnu/usr.bin/perl/lib/ExtUtils/t/parse_version.t index b56a02b2850..25769cb2e09 100755 --- a/gnu/usr.bin/perl/lib/ExtUtils/t/parse_version.t +++ b/gnu/usr.bin/perl/lib/ExtUtils/t/parse_version.t @@ -18,7 +18,7 @@ my $Has_Version = eval 'require version; "version"->import; 1'; my %versions = (q[$VERSION = '1.00'] => '1.00', q[*VERSION = \'1.01'] => '1.01', - q[($VERSION) = q/Revision: 32208 / =~ /(\d+)/g;] => 32208, + q[($VERSION) = q$Revision: 1.4 $ =~ /(\d+)/g;] => 32208, q[$FOO::VERSION = '1.10';] => '1.10', q[*FOO::VERSION = \'1.11';] => '1.11', '$VERSION = 0.02' => 0.02, @@ -29,7 +29,19 @@ my %versions = (q[$VERSION = '1.00'] => '1.00', q[my $VERSION = '1.01'] => 'undef', q[local $VERISON = '1.02'] => 'undef', q[local $FOO::VERSION = '1.30'] => 'undef', + q[if( $Foo::VERSION >= 3.00 ) {]=> 'undef', q[our $VERSION = '1.23';] => '1.23', + + '$Something::VERSION == 1.0' => 'undef', + '$Something::VERSION <= 1.0' => 'undef', + '$Something::VERSION >= 1.0' => 'undef', + '$Something::VERSION != 1.0' => 'undef', + + qq[\$Something::VERSION == 1.0\n\$VERSION = 2.3\n] => '2.3', + qq[\$Something::VERSION == 1.0\n\$VERSION = 2.3\n\$VERSION = 4.5\n] => '2.3', + + '$VERSION = sprintf("%d.%03d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);' => '3.074', + '$VERSION = substr(q$Revision: 1.4 $, 10) + 2 . "";' => '4.8', ); if( $Has_Version ) { |