CVS: fink/perlmod/Fink ChangeLog,1.247,1.248 Engine.pm,1.85,1.86 Package.pm,1.28,1.29

[Ben Hines]

Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv7616

Modified Files:
        ChangeLog Engine.pm Package.pm 
Log Message:
* Engine.pm, Package.pm: Match "fink list" & "install/remove/etc"
          items case-insensitively (Patch #622663)


Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.247
retrieving revision 1.248
diff -u -r1.247 -r1.248
--- ChangeLog   22 Jan 2003 15:14:14 -0000      1.247
+++ ChangeLog   22 Jan 2003 23:46:23 -0000      1.248
@@ -1,3 +1,8 @@
+2002-01-22  Ben Hines <[EMAIL PROTECTED]>
+
+       * Engine.pm, Package.pm: Match "fink list" & "install/remove/etc"
+         items case-insensitively (Patch #622663)
+         
 2003-01-22  Max Horn  <[EMAIL PROTECTED]>
 
        * Various files: Applied Chris Zubrzycki's build directory patch which allows

Index: Engine.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Engine.pm,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -r1.85 -r1.86
--- Engine.pm   14 Jan 2003 21:46:15 -0000      1.85
+++ Engine.pm   22 Jan 2003 23:46:23 -0000      1.86
@@ -349,7 +349,7 @@
     } else {
       @selected = ();
       while (defined($pattern = shift)) {
-        $pattern = quotemeta $pattern; # fixes bug about ++ etc in search string.
+        $pattern = lc quotemeta $pattern; # fixes bug about ++ etc in search string.
        if ((grep /\\\*/, $pattern) or (grep /\\\?/, $pattern)) {
           $pattern =~ s/\\\*/.*/g;
           $pattern =~ s/\\\?/./g;

Index: Package.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Package.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -r1.28 -r1.29
--- Package.pm  14 Jan 2003 14:50:47 -0000      1.28
+++ Package.pm  22 Jan 2003 23:46:23 -0000      1.29
@@ -66,7 +66,7 @@
   my $self = {};
   bless($self, $class);
 
-  $self->{package} = $pkgname;
+  $self->{package} = lc $pkgname;
 
   $self->initialize();
 
@@ -255,7 +255,7 @@
   my $pkgname = shift;
   my $package;
 
-  return $package_hash{$pkgname};
+  return $package_hash{lc $pkgname};
 }
 
 ### get package by exact name, create when not found
@@ -265,7 +265,7 @@
   my $pkgname = shift;
   my $package;
 
-  return $package_hash{$pkgname} || Fink::Package->new_with_name($pkgname);
+  return $package_hash{lc $pkgname} || Fink::Package->new_with_name($pkgname);
 }
 
 ### list all packages



-------------------------------------------------------
This SF.net email is sponsored by: Scholarships for Techies!
Can't afford IT training? All 2003 ictp students receive scholarships.
Get hands-on training in Microsoft, Cisco, Sun, Linux/UNIX, and more.
www.ictp.com/training/sourceforge.asp
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits