From 3456849ec87b4c1beb026ebbab6972fe5d76a9df Mon Sep 17 00:00:00 2001
From: Axel Beckert <abe@deuxchevaux.org>
Date: Thu, 17 Jan 2013 22:17:37 +0100
Subject: [PATCH] Make t/xen-lists-images.t more strict: No more /i

---
 t/xen-lists-images.t | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/t/xen-lists-images.t b/t/xen-lists-images.t
index dc3dbda..69c4f4c 100755
--- a/t/xen-lists-images.t
+++ b/t/xen-lists-images.t
@@ -109,22 +109,22 @@ EOS
     my $success = 0;
     foreach my $line ( split( /\n/, $output ) )
     {
-        if  ( $line =~ /Memory: ([0-9]+)/i )
+        if  ( $line =~ /Memory: ([0-9]+)/ )
         {
             is( $1, $memory, "We found the right amount of memory: $memory" );
             $success += 1;
         }
-        if  ( $line =~ /Name: (.*)/i )
+        if  ( $line =~ /Name: (.*)/ )
         {
             is( $1, $name, "We found the correct hostname: $name" );
             $success += 1;
         }
-        if  ( $line =~ /DHCP/i )
+        if  ( $line =~ /DHCP/ )
         {
             is( $dhcp, 1, "Found the right DHCP details" );
             $success += 1;
         }
-        if  ( $line =~ /IP: ([0-9.]+)/i )
+        if  ( $line =~ /IP: ([0-9.]+)/ )
         {
             is( $1, $ip, "We found the IP address: $ip" );
             is( $dhcp, 0, "And DHCP is disabled" );