Navigation

Changeset 386

Timestamp:

08/19/08 23:40:26 (3 months ago)

Author:

ingy

Message:

version 0.15

Files:

r352	r386
	1	---
	2	version: 0.15
	3	date: Tue Aug 19 23:34:54 PDT 2008
	4	changes:
	5	- Allow random files to be installed as well.
1	6	---
2	7	version: 0.14

r352	r386
5	5	use 5.005.003;
6	6
7		our $VERSION = '0.14';
	7	our $VERSION = '0.15';
8	8
9	9	sub new {
…	…
31	31	find {
32	32	wanted => sub {
33		return unless /\.js$/;
	33	return unless -f $_;
	34	return if /\.(?:pm\|pod\|packlist)$/;
	35	return if /^\./;
34	36	my $dir = $File::Find::dir;
35	37	$dir =~ s{./JS\b(/\|$)(.)}{$2} or return;
36	38	my $module = $dir ? "$dir/$_" : $_;
37		$module =~ s/[\/\\]+/./g;
38		$module =~ s/\.js$//;
	39	if ($module =~ s/\.js$//) {
	40	$module =~ s/[\/\\]+/./g;
	41	}
39	42	return if $found->{$module}++;
40	43	print $module, "\n";
…	…
46	49	my $self = shift;
47	50	my $module = shift;
48		$module =~ s/(::\|\.)/\//g;
	51	unless ($module =~ /\//) {
	52	$module =~ s/(?:\.)/\//g;
	53	}
	54	$module =~ s/(?:::)/\//g;
49	55	$module =~ s/\$/./;
50		~~$module .= '.js';~~
51	56
52	57	my $found = {};
…	…
55	60	wanted => sub {
56	61	my $path = $File::Find::name;
57		return unless $path =~ /$module(\.gz)?$/i;
	62	while (1) {
	63	return if -d $_;
	64	return if $path =~ /$module\.pm$/i;
	65	return if $path =~ /$module\.pod$/i;
	66	last if $path =~ /$module$/i;
	67	last if $path =~ /$module\.js(?:\.gz)?$/i;
	68	return;
	69	}
58	70	return if $found->{$path}++;
59	71	push @module_path, $path;