Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv25406/perlmod/Fink
Modified Files:
ChangeLog Services.pm
Log Message:
small one-liner warning fix
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.232
retrieving revision 1.233
diff -u -r1.232 -r1.233
--- ChangeLog 24 Dec 2002 16:37:12 -0000 1.232
+++ ChangeLog 2 Jan 2003 17:32:05 -0000 1.233
@@ -1,3 +1,7 @@
+2003-01-02 Benjamin Reed <[EMAIL PROTECTED]>
+
+ * Services.pm: One-liner fix to get rid of an undefined warning
+
2002-12-24 Dave Morrison <[EMAIL PROTECTED]>
* Validation.pm: Perl syntax fixes (thanks to Randal Schwartz)
Index: Services.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Services.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- Services.pm 20 Dec 2002 02:57:48 -0000 1.30
+++ Services.pm 2 Jan 2003 17:32:05 -0000 1.31
@@ -289,7 +289,7 @@
sub filename {
my ($s) = @_;
- if ($s =~ /[\/:]([^\/:]+)$/) {
+ if (defined $s and $s =~ /[\/:]([^\/:]+)$/) {
$s = $1;
}
return $s;
-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
