Re: [ID 19991001.005] [_61] [PATCH] tarball fine on win32, zip isn't

To: Jarkko Hietaniemi <jhi@iki.fi>
cc: Perl Porters <perl5-porters@perl.org>, jhi@cc.hut.fi
Message-ID: <Pine.SOL.4.10.9910041302550.6502-100000@maxwell.phys.lafayette.edu>

p4raw-id: //depot/cfgperl@4300

diff --git a/MANIFEST b/MANIFEST
index 4ac1ba4..94ab980 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -91,7 +91,7 @@ eg/cgi/cookie.cgi             CGI example
 eg/cgi/crash.cgi               CGI example
 eg/cgi/customize.cgi           CGI example
 eg/cgi/diff_upload.cgi         CGI example
-eg/cgi/dna.small.gif.uu                Small image for CGI examples
+eg/cgi/dna_small_gif.uu                Small image for CGI examples
 eg/cgi/file_upload.cgi         CGI example
 eg/cgi/frameset.cgi            CGI example
 eg/cgi/index.html              Index page for CGI examples
@@ -104,7 +104,7 @@ eg/cgi/nph-multipart.cgi    CGI example
 eg/cgi/popup.cgi               CGI example
 eg/cgi/save_state.cgi          CGI example
 eg/cgi/tryit.cgi               CGI example
-eg/cgi/wilogo.gif.uu           Small image for CGI examples
+eg/cgi/wilogo_gif.uu           Small image for CGI examples
 eg/changes             A program to list recently changed files
 eg/client              A sample client
 eg/down                        A program to do things to subdirectories

diff --git a/eg/cgi/dna.small.gif.uu b/eg/cgi/dna_small_gif.uu
similarity index 99%
rename from eg/cgi/dna.small.gif.uu
rename to eg/cgi/dna_small_gif.uu
index d3ce24c..1745c73 100644 (file)
--- a/eg/cgi/dna.small.gif.uu
+++ b/eg/cgi/dna_small_gif.uu
@@ -1,4 +1,4 @@
-begin 444 dna.small.gif
+begin 444 dna_small.gif
 M1TE&.#=A)0`J`.<``+9%&Y<R0M<F'ID\,!<07%<G1:P<0Q`A2Q`P;"L9/L$:
 M,"480N5"&RL7:4LD0T,G144[7BHL2B4?3\0I+"</)BQ.9KD0/S878\96$Z\@
 M(:\1*RL:3L0W&QL?2#4?9>@_&A$_5<I"&C`A3*,3-A`//9X<)\@Q(L`@.#\E

diff --git a/eg/cgi/wilogo.gif.uu b/eg/cgi/wilogo_gif.uu
similarity index 100%
rename from eg/cgi/wilogo.gif.uu
rename to eg/cgi/wilogo_gif.uu

diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL
index 78c82f2..dc4275b 100644 (file)
--- a/ext/B/defsubs_h.PL
+++ b/ext/B/defsubs_h.PL
@@ -3,7 +3,6 @@
 # Extracting defsubs.h (with variable substitutions)
 #!perl
 my ($out) = __FILE__ =~ /(^.*)\.PL/;
-if ($^O eq 'VMS') { ($out) = __FILE__ =~ /^(.+)_PL$/i; }
 $out =~ s/_h$/.h/;
 open(OUT,">$out") || die "Cannot open $file:$!";
 print "Extracting $out...\n";