Change 29529: Skip IO::Compress::Zlib in perlivp, since that's a distribution name,

[Rafael Garcia-Suarez]

Change 29529 by [EMAIL PROTECTED] on 2006/12/12 11:07:27

        Skip IO::Compress::Zlib in perlivp, since that's a distribution name,
        not a proper module name.

Affected files ...

... //depot/perl/utils/perlivp.PL#10 edit

Differences ...

==== //depot/perl/utils/perlivp.PL#10 (text) ====
Index: perl/utils/perlivp.PL
--- perl/utils/perlivp.PL#9~26419~      2005-12-20 06:39:22.000000000 -0800
+++ perl/utils/perlivp.PL       2006-12-12 03:07:27.000000000 -0800
@@ -33,13 +33,12 @@
         if \$running_under_some_shell;
 !GROK!THIS!
 
+print OUT "\n# perlivp $^V\n";
+
 # In the following, perl variables are not expanded during extraction.
 
 print OUT <<'!NO!SUBS!';
 
-# perlivp V 0.02
-
-
 sub usage {
     warn "@_\n" if @_;
     print << "    EOUSAGE";
@@ -209,7 +208,9 @@
             next if ($_ eq 'threads');
             next if ($_ eq 'threads/shared');
         }
-        next if ($_ eq 'Devel/DProf'); 
+       # that's a distribution name, not a module name
+       next if $_ eq 'IO/Compress/Zlib';
+        next if $_ eq 'Devel/DProf'; 
            # VMS$ perl  -e "eval ""require \""Devel/DProf.pm\"";"" print $@"
            # \NT> perl  -e "eval \"require 'Devel/DProf.pm'\"; print $@"
            # DProf: run perl with -d to use DProf.
End of Patch.