perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From go...@apache.org
Subject svn commit: r331631 - /perl/modperl/trunk/xs/ModPerl/Util/Util_pm
Date Mon, 07 Nov 2005 22:47:24 GMT
Author: gozer
Date: Mon Nov  7 14:47:23 2005
New Revision: 331631

URL: http://svn.apache.org/viewcvs?rev=331631&view=rev
Log:
whitespace change only

Modified:
    perl/modperl/trunk/xs/ModPerl/Util/Util_pm

Modified: perl/modperl/trunk/xs/ModPerl/Util/Util_pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/xs/ModPerl/Util/Util_pm?rev=331631&r1=331630&r2=331631&view=diff
==============================================================================
--- perl/modperl/trunk/xs/ModPerl/Util/Util_pm (original)
+++ perl/modperl/trunk/xs/ModPerl/Util/Util_pm Mon Nov  7 14:47:23 2005
@@ -23,35 +23,35 @@
         # code/hash/array/scalar might be imported make sure the gv
         # does not point elsewhere before undefing each
         eval {
-        if (%$fullname) {
-            *{$fullname} = {};
-            undef %$fullname;
-        }
-        if (@$fullname) {
-            *{$fullname} = [];
-            undef @$fullname;
-        }
-        if ($$fullname) {
-            my $tmp; # argh, no such thing as an anonymous scalar
-            *{$fullname} = \$tmp;
-            undef $$fullname;
-        }
-        if (defined &$fullname) {
-            no warnings;
-            local $^W = 0;
-            if (defined(my $p = prototype $fullname)) {
-                *{$fullname} = eval "sub ($p) {}";
+            if (%$fullname) {
+                *{$fullname} = {};
+                undef %$fullname;
             }
-            else {
-                *{$fullname} = sub {};
+            if (@$fullname) {
+                *{$fullname} = [];
+                undef @$fullname;
             }
-            undef &$fullname;
-        }
-        if (*{$fullname}{IO}) {
-            if (fileno $fullname) {
-                close $fullname;
+            if ($$fullname) {
+                my $tmp; # argh, no such thing as an anonymous scalar
+                *{$fullname} = \$tmp;
+                undef $$fullname;
+            }
+            if (defined &$fullname) {
+                no warnings;
+                local $^W = 0;
+                if (defined(my $p = prototype $fullname)) {
+                    *{$fullname} = eval "sub ($p) {}";
+                }
+                else {
+                    *{$fullname} = sub {};
+                }
+                undef &$fullname;
+            }
+            if (*{$fullname}{IO}) {
+                if (fileno $fullname) {
+                    close $fullname;
+                }
             }
-        }
         };
     }
 



Mime
View raw message