[XaraXtreme-commits] Commit Complete

[subversion@xxxxxxxxxxxxxx]

Commit by  : alex
Repository : xara
Revision   : 1210
Date       : Tue May 30 11:45:30 BST 2006

Changed paths:
   M /Trunk/XaraLX/Scripts/build-resources.pl

Don't build files with a leading dot into resources (editor temporary saves)


Diff:
Index: Trunk/XaraLX/Scripts/build-resources.pl
===================================================================
--- Trunk/XaraLX/Scripts/build-resources.pl	(revision 1209)
+++ Trunk/XaraLX/Scripts/build-resources.pl	(revision 1210)
@@ -107,11 +107,11 @@
 $svtime+=0;
 
 opendir(DIR, "$topdir/wxOil/xrc") || die "Can't open $topdir/wxOil/xrc: $!";
-my @resfiles=sort grep { /^[^\#].*\.(png|ico|cur|bmp|res|xar)$/ } readdir(DIR);
+my @resfiles=sort grep { /^[^\.].*\.(png|ico|cur|bmp|res|xar)$/ } readdir(DIR);
 closedir(DIR);
 
 opendir(DIR, "$topdir/wxOil/xrc/$xaralanguage") || die "Can't open $topdir/wxOil/xrc/$xaralanguage: $!";
-my @xrcfiles=sort grep { /^[^\#].*\.xrc$/ } readdir(DIR);
+my @xrcfiles=sort grep { /^[^\.].*\.xrc$/ } readdir(DIR);
 closedir(DIR);
 
 my $newer=0;
@@ -280,6 +280,10 @@
 {
     print STDERR "Checksumming $i
" if ($verbose>1);
     my $fh=new FileHandle "<$i";
+    if (!defined($fh))
+    {
+	die "Can't open $i for checksumming: $!";
+    }
     $context->add($i); # add the name of the file too
     $context->addfile($fh);
 }


Xara