From e81b3fd1ba7efc94c4298750669d51031816f1b5 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Thu, 1 Nov 2001 17:28:02 +0000
Subject: [PATCH] Improvement on second genext2fs regexp pass.

---
 BootRoot/Yard.pm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/BootRoot/Yard.pm b/BootRoot/Yard.pm
index fd839da..f353ee3 100644
--- a/BootRoot/Yard.pm
+++ b/BootRoot/Yard.pm
@@ -147,6 +147,7 @@ sub read_contents_file {
     $text_insert->backward_delete($text_insert->get_length());
 
     # If the template changes it is time to clear all the values.
+    # Delete devices table.
     if ($contents_file_tmp && $contents_file_tmp ne $contents_file) {
 	undef %Included; 
 	undef %replaced_by;
@@ -193,19 +194,14 @@ sub read_contents_file {
 	  if ( $line =~  m,
 
 		  (?<![\w\d\+-])                    # can have \s before
-		  /dev(?![\w\d\+-]+)                # match /dev 
+		  /dev(?![\w\d\+-]+?)               # match /dev 
 		  
 		  ,x ) {
 
 	      my $expr;
 	      my @line;	      
 	      for $expr (split(' ', $line)) {
-		  if ( $expr =~  m,
-
-		       (?<![\w\d\+-])                    # can have \s before
-		       /dev(?![\w\d\+-]+)                # match /dev 
-		  
-		       ,x ) {
+		  if (  m,^/dev$|^/dev/, ) {
 		      
 		      # Do something here