Diff of /trunk/mkinitrd-magellan/isolinux/genhash.pl
Parent Directory
| 
Revision Log
| 
Patch
| revision 1132 by niro, Sat Sep 1 22:45:15 2007 UTC | revision 1133 by niro, Thu Aug 19 09:50:43 2010 UTC | |
|---|---|---|
| # | Line 7 eval { use bytes; }; | Line 7 eval { use bytes; }; |
| 7 | ||
| 8 | while ( defined($keywd = <STDIN>) ) { | while ( defined($keywd = <STDIN>) ) { |
| 9 | chomp $keywd; | chomp $keywd; |
| 10 | ||
| 11 | ($keywd,$keywdname) = split(/\s+/, $keywd); | ($keywd,$keywdname) = split(/\s+/, $keywd); |
| 12 | $keywdname = $keywd unless ( $keywdname ); | $keywdname = $keywd unless ( $keywdname ); |
| 13 |
|
||||||||