--- Inline-0.44~/lib/Inline/denter.pm	2001-06-13 04:30:50 +0000
+++ Inline-0.44/lib/Inline/denter.pm	2004-05-17 11:51:51 +0000
@@ -179,7 +179,7 @@ sub _undent_undef {
 sub _next_line {
     my $o = shift;
     $o->{done}++, $o->{level} = -1, return unless @{$o->{lines}};
-    $_ = shift @{$o->{lines}};
+    local $_ = shift @{$o->{lines}};
     $o->{line}++;
 }
 
@@ -188,7 +188,7 @@ sub _setup_line {
     $o->{done}++, $o->{level} = -1, return unless @{$o->{lines}};
     my ($width, $tabwidth) = @{$o}{qw(width tabwidth)};
     while (1) {
-	$_ = $o->{lines}[0];
+	local $_ = $o->{lines}[0];
 	# expand tabs in leading whitespace;
 	$o->next_line, next if /^(\s*$|\#)/; # skip comments and blank lines
 	while (s{^( *)(\t+)}
@@ -211,7 +211,7 @@ sub indent {
     my $stream = '';
     $o->{key} = '';
     while (@_) {
-	$_ = shift;
+	local $_ = shift;
 	$stream .= $o->indent_name($_, shift), next
 	  if (/^\*$package\::\w+$/);
 	$stream .= $o->indent_data($_);
@@ -221,7 +221,7 @@ sub indent {
 
 sub indent_data {
     my $o = shift;
-    $_ = shift;
+    local $_ = shift;
     return $o->indent_undef($_)
       if not defined;
     return $o->indent_value($_)