Index: MANIFEST =================================================================== RCS file: /cvsroot/guido/guido/MANIFEST,v retrieving revision 1.15 diff -u -r1.15 MANIFEST --- MANIFEST 17 Nov 2003 03:41:58 -0000 1.15 +++ MANIFEST 30 Oct 2004 09:55:34 -0000 @@ -65,7 +65,8 @@ lib/Guido/SourceFile/TkComposite/PropertyMapper.pm lib/Guido/SourceFile/TkComposite/MethodMapper.pm lib/Guido/SourceFile/TkComposite/Mapper.pm -lib/Guido/SourceFile/TkWidget/Basic/templates/to_code.tt +## Missing in CVS! +#lib/Guido/SourceFile/TkWidget/Basic/templates/to_code.tt lib/Guido/SourceFile/TkWidget/Basic.pm lib/Guido/Property.pm lib/Guido/properties.xml Index: setup.pl =================================================================== RCS file: /cvsroot/guido/guido/setup.pl,v retrieving revision 1.4 diff -u -r1.4 setup.pl --- setup.pl 3 Mar 2002 15:52:19 -0000 1.4 +++ setup.pl 30 Oct 2004 09:55:36 -0000 @@ -452,7 +452,7 @@ sub get_install_dir{ my($self) = @_; my $package_name = $self->{osd_data}->{package_id}; - if($Config{osname} eq 'linux') { + if($Config{osname} =~ /linux|bsd/i) { $install_dir = DEF_LINUX_INSTALL_DIR . $package_name; } elsif ($Config{osname} eq 'MSWin32') { @@ -533,6 +533,7 @@ } open(MANIFEST, "MANIFEST") or die "Couldn't extract MANIFEST information"; while(chomp(my $file = )) { + next if $file =~ /^#/; my $base_file = $file; $base_file =~ s/$package_name//; my($null, $dest_dir, $null2) = splitpath($file);