diff options
| author | Jarkko Hietaniemi <jhi@cc.hut.fi> | 1997-01-02 17:27:47 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-04 17:44:00 +1200 |
| commit | 40da2db335c65d50d3bca886fcc7161ed72faf74 (patch) | |
| tree | 7fa3e6ca078a9a52592d28bd05a7f99be1af6544 /lib/Devel/SelfStubber.pm | |
| parent | 5377b7012ceb2c72202db969f3b51a017f9551a9 (diff) | |
| download | perl-40da2db335c65d50d3bca886fcc7161ed72faf74.tar.gz | |
Make libs clean under '-w'
Diffstat (limited to 'lib/Devel/SelfStubber.pm')
| -rw-r--r-- | lib/Devel/SelfStubber.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Devel/SelfStubber.pm b/lib/Devel/SelfStubber.pm index 7bb38f6957..4c2d039580 100644 --- a/lib/Devel/SelfStubber.pm +++ b/lib/Devel/SelfStubber.pm @@ -35,7 +35,7 @@ sub stub { $fh = "${module}::DATA"; open($fh,$mod_file) || die "Unable to open $mod_file"; - while($line = <$fh> and $line !~ m/^__DATA__/) { + while(defined ($line = <$fh>) and $line !~ m/^__DATA__/) { push(@BEFORE_DATA,$line); $line =~ /use\s+SelfLoader/ && $found_selfloader++; } @@ -45,7 +45,7 @@ sub stub { $self->_load_stubs($module); if ( fileno($fh) ) { $end = 1; - while($line = <$fh>) { + while(defined($line = <$fh>)) { push(@AFTER_DATA,$line); } } |