Skip to content

Instantly share code, notes, and snippets.

@soh335
Created June 28, 2013 05:55
Show Gist options
  • Save soh335/5882736 to your computer and use it in GitHub Desktop.
Save soh335/5882736 to your computer and use it in GitHub Desktop.
use strict;
use warnings;
use utf8;
use Module::CoreList;
my @vs = split /\./, $^V;
my $v = sprintf("%d.%03d%03d", 5, $vs[1], $vs[2]);
my @modules = keys %{ $Module::CoreList::version{$v} };
warn join "\n", @modules;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment