Fix failing Time-Piece tests on Win32

[p5sagit/p5-mst-13.2.git] / Porting / corecpan.pl

diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl
index df2a70a..eb77fe1 100644 (file)
--- a/Porting/corecpan.pl
+++ b/Porting/corecpan.pl
@@ -148,7 +148,7 @@ else {
     for my $dist (sort keys %results) {
        print "Module $dist...\n";
        for my $file (sort keys %{$results{$dist}}) {
-           my ($vcpan, $vcore) = @{$results{$dist}{$file}}{@labels};
+           my ($vcore, $vcpan) = @{$results{$dist}{$file}}{@labels};
            if (our $opt_v or $vcore ne $vcpan) {
                print "    $file: core=$vcore, cpan=$vcpan\n";
            }