/[gentoo-perl]/perl-info/trunk/bin/perl-info
Gentoo

Diff of /perl-info/trunk/bin/perl-info

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 98 Revision 104
289# Description: 289# Description:
290# Returnvalue is the content of the given file. 290# Returnvalue is the content of the given file.
291# $filecontent = getFileContents($file); 291# $filecontent = getFileContents($file);
292sub getFileContents 292sub getFileContents
293{ 293{
294 my $content = "";
295
296 open(FH,"<".$_[0]) || die("Cannot open file ".$_[0]); 294 open(FH,"<".$_[0]) || die("Cannot open file ".$_[0]);
297 while(<FH>) { $content.=$_; } 295 my $content = do{local $/; <FH>};
298 close(FH); 296 close(FH);
299 return $content; 297 return $content;
300} 298}
301 299
302# Description: 300# Description:
346 { 344 {
347 $hasuse=""; 345 $hasuse="";
348 last; 346 last;
349 } 347 }
350 } 348 }
351 push(@USEs,$hasuse.$thisIUSE); 349 push(@USEs,$hasuse.$thisIUSE) unless ($thisIUSE eq "");
352 } 350 }
353 351
354 return @USEs; 352 return @USEs;
355} 353}
356 354

Legend:
Removed from v.98  
changed lines
  Added in v.104

  ViewVC Help
Powered by ViewVC 1.1.20