[Jifty-commit] r5121 - jifty/trunk/t

[Jifty commits]

Author: audreyt
Date: Sat Feb 16 11:37:22 2008
New Revision: 5121

Modified:
   jifty/trunk/t/01-version_checks.t

Log:
* 01-version_checks.t: Avoid warnings.

Modified: jifty/trunk/t/01-version_checks.t
==============================================================================
--- jifty/trunk/t/01-version_checks.t	(original)
+++ jifty/trunk/t/01-version_checks.t	Sat Feb 16 11:37:22 2008
@@ -17,7 +17,7 @@
 my $dir = $INC{'Jifty.pm'};
 $dir =~ s/Jifty\.pm$//;
 $dir = quotemeta $dir;  # as MSWin32 has backslashes in the path
-my @files = grep({$_ =~ m/^$dir/} map({$INC{$_}} grep(/^Jifty\//, keys(%INC))));
+my @files = grep({$_ and $_ =~ m/^$dir/} map({$INC{$_}} grep(/^Jifty\//, keys(%INC))));
 ok(scalar(@files));
 
 foreach my $file (@files) {