Author: gozer Date: Sat Nov 12 21:44:27 2005 New Revision: 332900 URL: http://svn.apache.org/viewcvs?rev=332900&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=332900&r1=332899&r2=332900&view=diff ============================================================================== --- perl/modperl/trunk/xs/ModPerl/Util/Util_pm (original) +++ perl/modperl/trunk/xs/ModPerl/Util/Util_pm Sat Nov 12 21:44:27 2005 @@ -22,38 +22,38 @@ my $fullname = join '::', $package, $_; # code/hash/array/scalar might be imported make sure the gv # does not point elsewhere before undefing each - if (%$fullname) { - *{$fullname} = {}; - undef %$fullname; + 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) { - 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}) { + local $@; + eval { + if (fileno $fullname) { + close $fullname; } - undef &$fullname; - } - if (*{$fullname}{IO}) { - local $@; - eval { - if (fileno $fullname) { - close $fullname; - } - }; - } + }; + } } #Wipe from %INC