Diff of /tags/mkinitrd-6_3_1/isolinux/genhash.pl
Parent Directory | Revision Log | Patch
revision 532 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 |
|